Select Code to Download

# Within some connect_to_db() function ...
   my $dbh = try {
...
   Database::Disconnect($dbh);
   File::Close($fh);
};