foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);

   # Un-Webify plus signs and %-encoding
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|\n)*-->//g;

   if ($allow_html != 1) {
      $value =~ s/<([^>]|\n)*>//g;
   }

   $FORM{$name} = $value;
   if ($name ne 'Submit')
   {
       print FILE $name; 
    print FILE "=";
    print FILE $value;
    print FILE "\n";    
    print HTMLFILE "<TR>\n";
    print HTMLFILE "<TD>";
    print HTMLFILE $name;
    print HTMLFILE "</TD>\n";
    print HTMLFILE "<TD>";
    print HTMLFILE $value;
    print HTMLFILE "</TD>\n";
    print HTMLFILE "</TR>\n";
   }    
}

use CGI;

my %FORM = CGI::Vars();

if( $allow_html != 1 ){
    for my $key ( keys %FORM ){
        $FORM{$key} =~ s/<([^>]|\n)*>//g;
    }
}

while( my ($key,$value) = each %FORM ){
    next if( $key eq 'Submit' );
    print FILE $key, "=", $value, "\n";
    print HTMLFILE  "<tr>\n<td>$key</td>\n<td>$value</td>\n<tr>\n";
}