#!/usr/bin/perl

use strict;
use warnings;
use DBI qw( SQL_INTEGER );

my $dbh=DBI->connect('dbi:Pg:dbname=postgres','postgres','postgres',{ RaiseError => 1 });
my $sth=$dbh->prepare('select ? as answer');
$sth->bind_param(1,42,SQL_INTEGER);
$sth->execute();
$sth->dump_results();