use Config; # Make sure we are using drand48 as the underlying implementation if($Config{randfunc} ne "drand48") { print "Perl is configured with randfunc '" . $Config{randfunc} . "' rather than drand48\n"; return 1; }