Select Code to Download

#!/usr/bin/perl
use Time::HiRes qw(usleep);
...
$$mp == 22;}usleep(50_000);system($^);}f:$^=
'clear';$"=int(rand(22));$;=int(rand(22));$^
='cls'if$^O=~m|win|i;goto z;################

#!/usr/bin/perl
$@='Just Another Perl Hacker';$@=length($@);
...
$$mp == 22;}select $`,$`,$`,.05;system($^);}
f:$^='clear';$"=int(rand(22));$;=int(rand(22
));$^='cls'if$^O=~m|win|i;goto z;###########