use strict;use diagnostics;BEGIN{close($_),open$_,">",\$\for
\*STDERR}exec$a;$"=$;;$_=$";$"=".*";$";@_=map"($_)",qw;. P..l
A.{7} j\w+. .;;$/="@_";$\=~s;$/;\u$4\l$3\2 hacker.\n;s;print;
[download]

update: you'll need a perl version capable of open()ing to a scalar ref. (5.8.4+ works, 5.004 doesn't)