Select Code to Download

my $dbh = DBI->connect( ... ) or die $DBI::errstr;
END { $dbh->disconnect if $dbh }