Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
# first experiments in perl front end for mysql queries
...
        $sth->finish;
        print "\n";
        $dbh->disconnect;

Select or download this

abner@avery:~/queries/preauth$ ./test.pl
Enter cpt code> 27096
Enter three character insurance company code> 00D
...
 2016-11-08             0003287 brought from other table        mary

abner@avery:~/queries/preauth$