Select Code to Download

use CGI::Carp qw(fatalsToBrowser set_message);
BEGIN {
...
  }
  set_message(\&handle_errors);
}

eval
{
...
            $dbh_receipt->errstr(),
            $script);
}