sub foo {
  my $dbh = DBI->connect(...); 
  $dbh->do(...);
  $dbh->disconnect();
}