Perl и PostgreSQL - нужна помощь!

В се это описано в perldoc:
use DBI;
use strict;
my $dbh;
my $dbname="www";
$dbh = DBI->connect("dbi:Pg:dbname=$dbname","postgres","&qu ot;)or die $DBI::errstr;
$query="select alias, adres from sms where telnum='$TelNum' order by char_length(trim(alias)) DESC";
my $sth = $dbh->prepare($query) or die $DBI::errstr;
$sth->execute or die $DBI::errstr;
my @row_ary;
while (@row_ary = $sth->fetchrow_array)
{
Далее идет обработка получившегося массива
}