package Guest;
use vars qw($DBH);

sub new {
  $DBH ||= DBI->connect(...);
}

END {
  $DBH->disconnect();
}