Select Code to Download

open(OLDOUT, ">&STDOUT");
open(OUTPUT, ">processlog");
...
close(OUTPUT);
close(STDOUT);
open(STDOUT, ">&OLDOUT");

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;