The Beauty of Perl

$ dd if=/dev/urandom of=thequestion bs=1MB count=1
$ perl thequestion
42
$