------------------------------------------
 }
$pm->wait_all_children;

 print "Connecting for insert into jobs_run: JOBNO:$mjobno\n";

 my $sql4 = qq { insert into jobs_run (jobname, datein, howmany, error
+mesg)
        values ( 'attachmailer', sysdate, $scount, 'JOBNO:$mjobno')} |
+| warn "Error: $!\n";
 print "preparing Query";
 my $sth4 = $dbh->prepare( $sql4 ) || warn "Prepare Error: $!\n";
 print "executing Query";
 $sth4->execute() || warn "Execute Error: $!\n";

print "Done";
------------------------------------------