Perl и DBD

надо что б было так: 
use DBI;

sub parse_file
{

        $name = $_[0];
	...
        $query="INSERT INTO ...";
        $dbh->begin_work();
        $dbh->do($query);
        $dbh->commit();
	...
}

my $dbh = DBI->connect('DBI:Pg:dbname=testdb', 'pgsql', '');
my $bytes = parse_file('file.txt',$dbh);
$dbh->disconnect();

т.е. передавать хендлер DBI

пока сделано так: 
use DBI;
$dbh = DBI->connect('DBI:Pg:dbname=testdb', 'pgsql', '');
sub parse_file
{

        $name = $_[0];
	...
        $query="INSERT INTO ...";
        $dbh->begin_work();
        $dbh->do($query);
        $dbh->commit();
	...
}
my $bytes = parse_file('file.txt');
$dbh->disconnect();

т.е. хендлер глобальный.
как все же реализовать первый вариант