Select Code to Download

head -c 200 /dev/urandom | perl -e '$i=0;foreach (split //, <>) {s/[\s
+\W]//g;print}#$i++,$_,$/}' | head -c 8; echo

#!/usr/bin/perl
use strict;
...
   # Now do whatever you like with the number.
   print "$rannum is my favourite number! \n";
}