The amount of evals in the code is troubling too...
eval{$penis = $cgi->param('postfield')};
eval{$penispenis = $cgi->param('postfield')}; eval{$penis = $cgi->param('postfield')};
eval{$penispenis = $cgi->param('postfield')};