Select Code to Download

eval {
    $db->do($sql) or die $db->errstr();
...
if ($@) {
    warn "DB error: $@\n";
}