Help for this page

Select Code to Download


  1. or download this
    ($SIG{__DIE__},$\,@japh) = (sub{exit}," ",qw!Just another Perl hacker!
+);
sub UNIVERSAL::AUTOLOAD{$_[0]=shift@japh} $/="Foo";print $/->Bar while
+ 1
  2. or download this
    ($SIG{__DIE__},$\,@japh)=(sub{exit},qw!I Just another Perl hacker!);
sub UNIVERSAL::AUTOLOAD{$_[0]=shift@japh} $\->Bar, print " " while 1