#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect( "dbi:Pg:dbname=template1", "postgres" )
  || die "cant connect";

my $ver = $dbh->selectrow_array( "select version()" )
  || die "cant version";

printf "DBI::VERSION=%s DBD::Pg::VERSION=%s ver=%s\n", $DBI::VERSION, $DBD::Pg::VERSION, $ver;

$dbh->do( "create table foo ( id integer )" )
  || die "cant create";

my $sth = $dbh->prepare( "insert into foo ( id ) values ( ? )" )
  || die "cant prepare";

for my $id (  1  ..  10  ) {

  $sth->execute( $id )
    || die "cant execute";

  printf "id=%d oid=%d\n", $id, $sth->{'pg_oid_status'};
}

$sth->finish()
  || die "cant finish";

$dbh->do( "drop table foo" )
  || die "cant drop";

$dbh->disconnect()
  || die "cant disconnect";

DBI::VERSION= 1 . 35  DBD::Pg::VERSION= 1 . 22  ver=PostgreSQL  7 . 3 . 3  on i686-pc-linux-gnu, compiled by GCC gcc (GCC)  3 . 2 . 2   20030222  (Red Hat Linux  3 . 2 . 2 - 5 )
id= 1  oid= 11917165 
id= 2  oid= 11917166 
id= 3  oid= 11917167 
id= 4  oid= 11917168 
id= 5  oid= 11917169 
id= 6  oid= 11917170 
id= 7  oid= 11917171 
id= 8  oid= 11917172 
id= 9  oid= 11917173 
id= 10  oid= 11917174