#!/usr/local/bin/perl5 require './CGI_LIB.pl'; &Print_Head; &Parse_Multi; $plusplus = "++"; print "

";
print <<__END__HEAD__;

\$ENV{CONTENT_TYPE}
$ENV{CONTENT_TYPE}

In the following \"$plusplus\" is a mark to know where the value starts and ends.
__END__HEAD__

print "\n%CGI";
for (keys(%CGI)) {
  print "$_\n";
  print "Its value: \$CGI\{$_\}\n";
  print "$plusplus$CGI{$_}$plusplus\n";
  print "\n";
}
print "";
print "%EXT";
for (keys(%EXT)) {
  print "$_\n";
  print "Its extension variable: \$EXT\{$_\}\n";
  print "$plusplus$EXT{$_}$plusplus\n\n";
  if ( defined $C_TYPE{$_} ) {
    print "Its Content-Type: \$C_TYPE\{$_\}\n";
    print "$plusplus$C_TYPE{$_}$plusplus\n";
  };
  print "\n";
}

print <<__HTML__;

Comments are welcome! __HTML__