Select Code to Download

my $dbh = get_db(); # with RaiseError => 1
eval {
...
  ... more query execution
};
die $@ if $@;