Newbie to Postgres - Urgent query

Hello all,

I am trying to use DBI in perl to connect to my Postgres database. I
am able to connect to the database but when any further queries are made
using the database handle, I see the following message in my error logs
and no results are generated -

"NOTICE: current transaction is aborted, queries ignored until end of
transaction block"

Please help on what could be going wrong.

Here's a part of my code :

$dbh = DBI->connect(DBI:Pg:dbname=dbname, $user_name, $password, {
RaiseError => 0, PrintError => 0, AutoCommit => 0});
my $results = "select * from user_regs order by id desc";
my $ids = $dbh->prepare($results);
my $sth = $ids->execute;

$iderr = $ids->errstr;
if ($iderr) {
print STDERR "Couldn't get usercount from user_regs";
exit 0;
}

my @resultrows = $ids->fetchrow_array;
my $rowcount = scalar(@resultrows);
print STDERR "Rowcount: $rowcount\n";
exit 0;

Need urgent response.

Regards,
Ritu

----------------------------------------------------------------

NETCORE SOLUTIONS *** Ph: +91 22 5662 8000 Fax: +91 22 5662 8134

MailServ and FlexiMail: Messaging Solutions: http://netcore.co.in

Pragatee: Integrated Server-Software Suite: http://www.pragatee.com

Emergic Freedom: Server-centric Computing: http://www.emergic.com

BlogStreet: Blog Profiles and RSS Ecosystem: http://blogstreet.com

Deeshaa: Rural Development: http://www.deeshaa.com

Rajesh Jain's Weblog on Technology: http://www.emergic.org
----------------------------------------------------------------