Select Code to Download

#!/usr/bin/perl

print "Content-type: text/html\n\n";
...
    execute_it($dbh,$stmt);
    close_db($dbh, $sth);    
   exit();

1,"01",0,"0000","00","0000000","Name Christine L","0000","Full","10",3
+5000,"10","100","0150","3","17","047","Teacher"

...
3,"01",0,"0000","00","0000000","Name Lorraine","0000","Full","09",4498
+0,"10","100","0200","4","17","093","Teacher"

4,"01",0,"0000","00","0000000","Name Laurie","0000","Full","75",45760,
+"12","100","0090","5","17","047","Admin"