Perl Special Variables by %20

c;main(i){for(c=32;++c<127;i-=isalpha(c)?0:printf("$%c=%s\n",c," \x00\x003333\x000\x00\x00\x001000 1000\x00\x00\x00\x000\x00\x00\n\x00test.pl\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00 \n-\x00\x1c\x001000\x0060\x001000\x000\x00\x000\x00\x005.014002\x00STDOUT_TOP\x00\x00\x00\x000\x00\x00STDOUT\x00\x00"-i)-(c-40?3:13));}

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