use DBI;

###### connect to the database

my ($dbh,$sth,$count);  
$dbh = DBI->connect ("DBI:mysql:host=boognish;database=benchwarmer",
     "joda","waliays",
        {PrintError => 0, RaiseError => 1});

###### name, input, and read the text into an array

$input_file = 'RUN-mysql-win2k.txt';
open(INFO, $input_file); 
@input = <INFO>;  

###### slice the array input into six element chunks

@input[0,1,2,3,4,5]=@single_line 

#assign values to the various parts of the single_line array

$operation=$single_line[0]; 
$seconds=$single_line[1]; 
$usr=$single_line[2];   
$sys=$single_line[3];   
$cpu=$single_line[4];     
$tests=$single_line[5];   

sub write_data {
my($operation,$seconds,$usr,$sys,$cpu,$tests) = @_;
$count = 0;
$count += $dbh->do ("INSERT INTO main (operations,seconds,usr,sys,cpu,tests)
VALUES($operation,$seconds,$usr,$sys,$cpu,$tests)