Help for this page
use strict; use warnings;
#! perl.exe ... $sth1->execute($new_call_num) || die $dbh->errstr; return 1; }