00032463000000001000000010000010014110662004071664629003128182      O#
00032463000000002000000010000010014110662004071664729003070909      O#
00032463000000003000000010000010014110662004071664829003861044      O#
00032463000000004000000010000010014110662004071664929003005555      O#

##</code><code>##

use strict;
use warnings;
use DBI;

my $start = time();
my $data;
my ($version,$jobnumber);
my $file = "C:/temp/dump.txt";

open (FH, "$file") or die "$!";
while(<FH>){
   $data .= $_;
}

$version = substr($data,0,3);
$jobnumber = substr($data,4,5);

my $databaseName        =   "basedb";
my $connectHost         =   "127.0.0.1";
my $DSN                 =   "DBI:mysql:dbname=$databaseName;host=$connectHost";
my $db_username         =   'root';
my $db_password         =   'root';
my $dbh                 =   DBI->connect($DSN,$db_username,$db_password,{RaiseError=>1,
														PrintWarn=>0,AutoCommit=>0}) || die "error connecting: $!";

my $dump_sql = "INSERT INTO temp (version,jobnumber) VALUES(?,?);";
my $dump_sth = $dbh->prepare($dump_sql) or die "$DBI::errstr";
eval{
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dbh->commit;
};
if($@){
    $dbh->rollback();
    print "$@\n";
}
my $end = time();
my $elapsed = $end - $start;
print "Job took $elapsed sec to execute.\n";