use warnings;
use strict;
use feature 'say';
use DBI;

my $dbh = DBI->connect(
	"DBI:mysql:database=testing;host=127.0.0.1", $ENV{USER},
	'barfoo', { RaiseError => 1, AutoCommit => 1 });
$dbh->do('DROP TABLE IF EXISTS coacttran');
$dbh->do(<<'ENDSQL');
CREATE TABLE coacttran (
	id INT PRIMARY KEY AUTO_INCREMENT,
	foo VARCHAR(256) 
);
ENDSQL

for my $i (1..10) {
	my $req = qq{ INSERT INTO `coacttran` SET foo=? };
	my $sth = $dbh->prepare($req);
	my $row = $sth->execute("bar$i");
	say $dbh->last_insert_id;
}