Select Code to Download

use Modern::Perl;

my @replace = map int(rand(99999)), (0 .. 10);
...
__DATA__
@a = ("'hello world'",'print ', ';');
eval("$a[1]$a[0]$a[2]");