$_=pack('H*','4a75737420416e6f74686572205669626520436f6465720a');@a=(1
+12,114,105,110,116);$p=join'',map{chr}@a;sub s{eval"$p\$_"}sub x{goto
+ &s}x
[download]