OK I put that part back in:

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=$conn
+ectHost";
my $db_username         =   'root';
my $db_password         =   'root';
my $dbh                 =   DBI->connect($DSN,$db_username,$db_passwor
+d,{RaiseError=>1,PrintWarn=>0,AutoCommit=>0}) || die "error connectin
+g: $!";

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";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    $dump_sth->execute($version,$jobnumber) or die "$DBI::errstr";
    ...
}
[download]