BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } } use seed qw(); my $s0 = &seed::setseed(54321); printf "s0:%s\n",$s0; my $n0 = seed::rand64(); # n < 18446744073709551616 printf "n0:%s\n",$n0; exit $?; 1;