##

#!/usr/bin/perl -w
use CGI;
#CGI stuff
my $q = new CGI;
my %f; #($f) should be declared as a hash

foreach my $i ($q->param()) {
$f{$i} = $q->param($i);
}
my $empid = $q->param('empid');
my $code = $q->param('code');

#sql things follow...