Select Code to Download

$sth->execute() or do {
   $msg = "ERROR:$0: Error in SQL execute:\n$DBI::errstr";
   $dbh->rollback();
   confess "$msg";
};