Perl Special Variables by llhuii

p="\x00\x00 \x00\x003333\x000\x00\x00\x001000 1000\x00\x00\x00\x000\x00\x00\n\x00test.pl\x00 \n-\x00\x1c\x001000\x0060\x001000\x000\x00\x000\x00\x005.014002\x00STDOUT_TOP\x00\x00\x00\x000\x00\x00STDOUT";main(i){for(i=33;printf("$%c=%s\n",i,i-41?p=index(p,0)+(i%49>8):p)-10;)i+=i%32?1:27;}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page