Select Code to Download

$dbh->do(...) or handle_error();
$dbh->do(...) or handle_error();
$dbh->do(...) or handle_error();
$dbh->do(...) or handle_error();

eval {
    $dbh->do(...);
...
if($@) {
    handle_error();
}

use Fatal qw(open);

...
if($@) {
    # and here we can't say if it was DBI problem or open
}