Select Code to Download

use strict;
use DBI; my $dbh = DBI->connect(
...
    warn "Execution of stored procedure failed: $DBI::errstr\n";
    $dbh->rollback;
} print "Execution of stored procedure returned $rv\n"; $dbh->disconne
+ct;