Help for this page

Select Code to Download


  1. or download this
               #!/bin/sh -- # -*- perl -*- -p
               eval 'exec perl -wS $0 ${1+"$@"}'
                   if $running_under_some_shell;
    
  2. or download this
    #! /bin/sh
    eval '(exit $?0)' && eval 'PERL_BADLANG=x;PATH="$PATH:.";export PERL_B
    +ADLANG\
    ...
    #!perl -wi.bak
    +push@INC,'.';$0=~/(.*)/s;do(index($1,"/")<0?"./$1":$1);die$@if$@__END
    +__+if 0
    ;#Don't touch/remove lines 1--7: http://www.inf.bme.hu/~pts/Magic.Perl
    +.Header