Select Code to Download

use strict;
use warnings;

#! perl.exe

...
    $sth1->execute($new_call_num) || die $dbh->errstr;
    return 1;
}