#!perl -lw
# this is more random than bash's $RANDOM variable
open URANDOM, "/dev/urandom" or die; $bytes=8; die unless(read(URANDOM,$x,$bytes)==$bytes); print unpack("Q",$x)