$dbh->{AutoCommit} = 0;
my $loghandle;
if ($logfile){
$loghandle= IO::File->new($logfile,"w") ;
$loghandle= IO::File->new($logfile,"a") ;
print $loghandle "id;operation;status\n";
}
RECORD: while ( ) {
-