package MyStateManagement::DBI::Singleton;

 use base qw(DBI);
 use DBI;

my $Dbh = undef;

sub connect
{
    my $class = shift;
    $Dbh ||= DBI->connect( @_ );
    return $Dbh;
}

1;