#!/usr/bin/perl -w
# See "perldoc DBI"

use DBI;

my $dbh = DBI->connect('DBI:mysql:testdb','root','funker') or die 'error in connect';

my $rows = $dbh->prepare("INSERT INTO log (importance,user,item) VALUES (?,?,?)") or die 'error in prepare';
$rows->execute('-1','olawlor','PERL DBI');

print "Finished execute\n";
