Select Code to Download

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

sub die_handler()
{
...
  print FH $err_stmt;
  close FH;
}