Help for this page

Select Code to Download


  1. or download this
    fred$ perl
#!/usr/bin/perl -w
...
another { seek DATA, 0, 0;print +(/(\w{6})\d/)?'':$1 while
<DATA>;DB::hacker();}sub perl { print }$_ and print "$_\n"
;foreach (qw{just another perl hack}) {$_->();}print "\n";
  2. or download this
    Segmentation fault
fred$ perl -v

This is perl, version 5.005_02 built for sun4-solaris-thread