Re: Fun with $SIG{__DIE__}

[plaid]

From Programming Perl:

The routine indicated by $SIG{__DIE__} is called when a
fatal exception is about to be thrown.  The error message
is passed as the first argument.

So you probably want something like:

$SIG{__DIE__}=sub {print LOG "Script Died: $_[0]" and close LOG if DEB
+UGING};