Got the warning idea from somewhere else (I think Abigail's page of JAPHs). Hopefully, you should be able to copy and paste straight to a prompt.

perl -we 'BEGIN{$SIG{__WARN__}=sub{($;=shift)=~s;((?<=:.).+(?="));prin
+t
$+.$";e}}sub Perl{$_=$::_;map{y,(), ,,$..=$_}split$\;local$,.=chop$.;q
+q
]$,$.,\n]}$_=$|++||shift;$\=eval;print $Just, "another"' Perl\(hacker\
+)
[download]

Brandan L.