#!/usr/local/bin/perl

use strict;
use warnings;
use AccessDB::Interface;

my $file = 'e:\Base\test.mdb';

my $adb = AccessDB::Interface->create($file);
$adb->open();
print "State is ", $adb->state(), "\n";
my $sql = <<"end_of_sql";
INSERT INTO tstTable (Entry, Name)
VALUES ('Blather', 'John Q Publik')
end_of_sql

$adb->execute($sql);
$adb->close();