Help for this page

Select Code to Download


  1. or download this
    print LOG "Some message like, \$v=$v\n" if DEBUGING;
    
  2. or download this
    do this or die "couldn't do it.";
    
  3. or download this
    $SIG{__DIE__}=sub {print LOG "Script Died" and close LOG if DEBUGING};
    # is what I have, but I want:
    $SIG{__DIE__}=sub {print LOG "Script Died: $msg" and close LOG if DEBU
    +GING};