#!/usr/bin/perl -w
require "cgi-lib.pl";
use strict;

&ReadParse;

# Print the header
print &PrintHeader;
print &HtmlTop ("cgi-lib.pl demo form output");

if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/){
        print "your browser is IE";
}elsif ($ENV{'HTTP_USER_AGENT'} =~ /Safari/){
        print  "your browser is safari";
}



foreach $key (keys %in){
    print "$key is $in{$key}\n";
}





  print <<ENDOFTEXT;

You, $input{'name'}, whose favorite color is $input{'color'} are on a
quest which is $input{'quest'}, and are looking for the weight of an
$input{'swallow'} swallow.  And this is what you have to say for
yourself:<P> $text<P>

ENDOFTEXT


  # If you want, just print out a list of all of the variables.
  print "<HR>And here is a list of the variables you entered...<P>";
  print &PrintVariables(\%input);

  # Close the document cleanly.
  print &HtmlBot;