Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
...
                                                         $pname;
    1;
}