#!/usr/bin/perl -w
require 5.004;

use blib;
use DBI;

$dbpath = 'test.gdb';
#DBI->trace(2, "./insdo.trace");
$dbh = DBI->connect("dbi:InterBase:database=$dbpath",'','', {AutoCommit => 0}) 
    or die $DBI::errstr;

$sql = 'insert into SIMPLE values (5, "Gurusamy Sarathy",
        "Main porter")';
$dbh->do($sql) or die $dbh->errstr;

$dbh->commit;
$dbh->disconnect or warn $dbh->errstr;

print "Added one record.\n";

