$_="Just a Perl hacker\n";#ready?
print $_; wait and exit if#set
fork; sleep(1); /a( P.*)/;#go!
open F,"+<$0" and seek(F,10,0)
;print F "nother$1\\n\";
print and print and print; exit;
"and close F; print`perl $0`if$1