Yet another random number generator
Posted Wed, 23 Jun 2004
I was bored...
dd if=/dev/urandom bs=1 count=30 2> /dev/null | \
perl -e 'read(STDIN,$foo,5); print unpack("J",$foo) % 6 . "\n";'