#!/usr/bin/perl BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } } use seed qw(rand64); &seed::setseed(0x49b1cffe || undef); my $n0 = seed::rand64(); # n < 18446744073709551616 printf "n0: %s\n",$n0; exit $?; 1;