##
use ECClib;
{
my $dbh = ECClib->get_dbh;
...;
}
{
my $dbh = ECClib->get_dbh; # gets the same instance!
...;
}
##
##
package ECClib;
use v5.10;
sub get_dbh {
state $dbh = db_connect( $dbuser, $dbpasswd, $dbserver );
}