Select Code to Download

use vars qw( $connection ); # cached connection
...
1;

#! /usr/bin/perl -w
#
...
$dbh->disconnect
or warn "Failed to disconnect: ",$dbh->errstr(),"\n";
exit;