Select Code to Download

print "Content-type: text/html\n\n";

...
     print "<option>$dept</option>";
     }
 print "</select>";

#!/bin/perl
#use strict;
...

    return;
}