my $dbh = DBI->connect("DBI:Pg:dbname=$database",$user,$password );
[download]

Old-style: DBI->connect('dbname', $user, $pass, 'Driver');

New-style: DBI->connect('dbi:Driver:dbname', $user, $pass);
[download]

#!/usr/bin/perl -w

use strict;
use DBI;

my $DSN = "DBI:mysql:database=testDB";

my $dbh = DBI->connect( $DSN, "xxx", "xxx" ) or die "$DBI::errstr";

my $sth = $dbh->prepare("select * from teams");
$sth->execute();

while( my $ref = $sth->fetchrow_hashref() ) {
  print "$ref->{'wins'} $ref->{'losses'}";
}

$sth->finish();
$dbh->disconnect();
[download]

What's the DBD and what are the contents of $dbname? Standard syntax (at least since I started using DBI) is:

my $dbh = DBI->connect("DBI:ODBC:test_connection", $user, $passs, {opt
+ions});
[download]

So the first argument to connect is a connect string that includes the driver (DBD), as well as the specific connection (e.g. ODBC DSN, Oracle DBN, etc.). That appears to be the difference between "current" semantics and what you're using.