my $dbh = DBI->connect( $dsn, $user, $pwd, \%attr );
...
$dbh->disconnect;