require 5.8.0;$o="Just_another_Perl_Hacker";open$o,">",\$s;select
$o;for($^){y$_$ $;s%....$%.\n%;die$_}