Select Code to Download

#!/usr/bin/perl 

...
$sth->execute() or die $sth->errstr();
print @{ $sth->{NAME} }, "\n";
$dbh->disconnect or warn $dbh->errstr;