Вот такой вот тестовый код

#cat test.pl
use DBI;
use warnings;
use strict;

sub main {
    my $dbh=DBI->connect("DBI:Pg:dbname=test","test", "test") or die $DBI::errstr;
    &test($dbh);
    $dbh->disconnect;
}

sub test {
    my $dbh = @_;
    my $sth = $dbh->prepare("select * from tests");
    print $sth->dump_results;
    $sth->finish;
}

приводит к ошибке: Can't call method "prepare" without a package or object reference at test.pl line 13.