Select Code to Download

$sth = $dbh->prepare($sql);
if (defined $sth and not defined $dbh->err) { 
...
else {
    print STDERR "Unable to prepare: $dbh->errstr\n";
}