~$ perl -e 'open $rnd, "<", "/dev/random"; read $rnd, $value, 4; print "Value = ", unpack ("H*", $value), "\n"' Value = 0de13803