use CGI::Carp qw(fatalsToBrowser set_message);
BEGIN {
   sub handle_errors {
      my $msg = shift;
      print "<h1>Oh gosh</h1>";
      print "<p>Got an error: $msg</p>";
  }
  set_message(\&handle_errors);
}

##</code><code>##

eval
{
  $sql = $dbh_receipt->prepare_cached($script);
  $sql->execute();
  $sql->bind_columns(\$receipt);
  $sql->fetch();
  $sql->finish();
};

if($@)
{
  log_error($dbh_receipt->err(),
            $dbh_receipt->errstr(),
            $script);
}