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.
[download]

So you probably want something like:

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