Вот такой вот тестовый код #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.