#!perl

use strict;
use DBI;
my $dbh = DBI->connect(
  "dbi:Pg:dbname=postgres", 
  "punkish", 
  "punkish", 
  {AutoCommit => 0}
);