my $dbh = DBI->connect ("dbi:Pg:", $user, $pass, {
    RaiseError         => 1,
    PrintError         => 1,
    ShowErrorStatement => 1,
    }) or die $DBI::errstr;

my $sth = $dbh->prepare ("select foo from bar where boom = ?");
$sth->execute (1);