$SIG{__DIE__} = \&die_handler;
my $err_stmt;

##</code><code>##

sub die_handler()
{
  $err_stmt = $err_stmt . $_ foreach (@_);
  $err_stmt =~s/\n/ /igs;
  open FH,">>Error.txt";
  print FH $err_stmt;
  close FH;
}