test1();
test2();
sub test1
{
 $dbh=new MyDBLayer;
$dbh->do(etc..);
}
sub test2
{
 $dbh=new MyDBLayer;
$dbh->do(etc..);
}

##</code><code>##

$dbh=new db connection;
test1($dbh);
test2($dbh);
sub test1
{
 
$dbh->do(etc..);
}
sub test2
{
 
$dbh->do(etc..);
}