use DBI;
my $dbh = DBI->connect( "$dbServer", "$dbUser", "$dbPass" ) or print "Could not make connection to database";

open(DAILY, "$updateDir/$fileName") || print "CAN'T OPEN DAILY";


while(<DAILY>){
	chomp;
	my ($field1,$field2,$field3,$field3,$field4,$field5,$field6,$field7,$field8) = split(/,/);
			
	if ($field1 == 33){
				
				my $spQuery = "exec my_sp ?,?,?,?,?,?,?";
				
				$insert33 = $dbh->prepare( $spQuery ) or die ( "Cannot prepare statement: ", $dbh->errstr(), "\n" );
			
				$insert33->execute($field1,$field2,$field3,$field4,$field5,$field6,$field7)
				or die( "Cannot execute statement: ", $insert33->errstr(), "\n" );
	
				$insert33->finish();
	}
	
}
close(DAILY);