#/usr/bin/perl
$a=100;XK:(--$a>1)&&($::m=($::m||sub {p($a,pack('c*',
0x62,0x6F,0x74,0x74,0x6C,0x65,0x73),w(0x18B),w(0x9717)
,w(0x193),w(0x35A4),w(0x62EFF),chr(0x2C));sub l{eval
w(11292).w(383).q{(pack("c",0xA))}};p($a,pack('c*',0x62,
0x6F,0x74,0x74,0x6C,0x65,0x73),w(0x18B),w(0x9717),chr(...