Select Code to Download

print;
print "\n>>>>\n";
print  eval $_;
print "\n>>>>\n";

my$c;$_="7072696e7420224a75737420616e6f74686572205065726c206861636b657
+25c6e223b";
while(m((..))sg){$c.=chr hex$1;}return$c;

return pack "H*", $_;