Select Code to Download

$dbh=new db connection
#some code here that calls subroutines
...
sub test2{
$sth=$dbh->prepare(etc..)
}

$dhb=new db connection
Test::Package->($dbh); #call sub with db connection