Select Code to Download

#!/usr/bin/perl

use DBI;
...
$dbh = DBI->connect("dbi:mysql:departments","user","passwd") or die "S
+QL Connection Error.";

}

#!/usr/bin/perl

require '../global/global.pl';
...

&form_read();
print $fr{aformfield};