sub insertItem { (my $insertCom) = @_; $dbInsert=$db->prepare($insertCom) or die "DBI prepare failed! : $sth->err : $sth->errstr"; my $rows_inserted = $dbInsert->execute(); if ( $dbInsert->err ) { die "DBI ERROR Insert Failed! : $sth->err : $sth->errstr"; } return $rows_inserted; } #### $db=DBI->connect('DBI:mysql:invoices',[username],[password], { RaiseError => 1, AutoCommit => 1 });