#!/usr/bin/perl

use strict;
use DBI;

# Setup Database info
my $driver = "mysql";
my $database = "TestMe";
my $host = "localhost";
my $user = "root";
my $pass = "XXXXXXXX";

# Create the DSN and connect to the database
my $dsn = "DBI:$driver:database=$database:host=$host;mysql_socket=/tmp/mysql.sock";
my $dbh = DBI->connect($dsn, $user, $pass, {RaiseError => 1}); 

for ( my $i=0; $i < 20; $i++ ) {
    $dbh->do("insert into TestNumberOne values ($i, 'abcdefghij')");
}

exit;