Select Code to Download

eval {
    local $dbh->{'RaiseError'} = 1;
...
    # .. other stuff
};
length($@) and dienice("Can't get problem report: $@");