use strict;
use warnings;

use Benchmark qw( cmpthese );
use DBI;

my $dbc=DBI->connect('DBI:Pg(RaiseError=>1,AutoCommit=>0):dbname=...');
my $dba=DBI->connect('DBI:Pg(RaiseError=>1,AutoCommit=>1):dbname=...');

cmpthese ( 10, {
  'ac' => sub { &inserts($dba, 'auto', 1000, 0 ) },
  'mc' => sub { &inserts($dbc, 'manual', 1000, 1 ) },
});

sub inserts
{
  my($dbh, $table, $rows, $commit)=@_;

  my $stmt=qq[ INSERT INTO $table ( id, val ) VAlUES ( ?, ? ) ];

  eval {
    $dbh->rollback if($commit);

    my $sth=$dbh->prepare($stmt);

    foreach my $row ( 1..$rows )
    {
      $sth->execute( $row, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz/' );
    }

    $dbh->commit if($commit);
  };

  if($@)
  {
    print STDERR "Insert Failed: $stmt: $@";
    $dbh->rollback;
    die "Program Terminated";
  }

  return;
}

END { $dbc->disconnect; $dba->disconnect };

##</code><code>##

#run 1
Benchmark: timing 10 iterations of ac, mc...
 ac: 33 wallclock secs ( 0.33 usr +  0.56 sys =  0.89 CPU) @ 11.24/s (n=10)
 mc:  3 wallclock secs ( 0.38 usr +  0.35 sys =  0.73 CPU) @ 13.70/s (n=10)
#run 2
Benchmark: timing 10 iterations of ac, mc...
 ac: 37 wallclock secs ( 0.41 usr +  0.81 sys =  1.22 CPU) @  8.20/s (n=10)
 mc:  4 wallclock secs ( 0.37 usr +  0.50 sys =  0.87 CPU) @ 11.49/s (n=10)
#run 3
Benchmark: timing 10 iterations of ac, mc...
 ac: 38 wallclock secs ( 0.48 usr +  0.60 sys =  1.08 CPU) @  9.26/s (n=10)
 mc:  4 wallclock secs ( 0.38 usr +  0.40 sys =  0.78 CPU) @ 12.82/s (n=10)