seek DATA,-48,1;eval while <DATA>;
exit;
do $japh while not sleep, or die;
print "Just another Perl hacker,\n";
__DATA__