REM ;$_=<<REM;
sub japh()
REM
REM ; $_.="{" . <<'REM ;';
print "Just another Perl hacker\n";
REM ;
REM ;$_.="}";eval;<<'REM';
end sub
REM
japh()