my $sth = $dbh->prepare( $SQL ) or die "Couldn't prepare statement: " . $dbh->errstr; eval{ $sth->execute($_[1], $hdr_tran_seq_nbr, $loader_start_time, $loader_start_time, $loader_start_time, $master_job_no, $_[0] ); $sth->finish(); }; if( $@ ) { outputErrorMessage( "$@" ); outputErrorMessage( "$sth->{Statement}" ); }