Help for this page

Select Code to Download


  1. or download this
    $SIG{ __DIE__ } = sub { $b=join '|',caller(0);Win32::MsgBox ("Error : 
+ @_ ($b)" ,  0, $0 )  } ;
  2. or download this
        $ENV{PAR_0} = $filename; # for Pod::Usage
    { do 'main';
...
      die $@ if $@;
      exit;
    }