   #!/usr/comp/bin/perl
   @pairs = split (/&/, $ENV{'QUERY_STRING'});
   foreach $item(@pairs)
    {
     ($key,$content)=split(/=/,$item);
     $content=~tr/+/ /;
     $content=~s/%(..)/pack("c",hex($1))/ge;
     $fields{$key}=$content;
    }                                       
   print "Content-type: text/html\n\n"; 
   print "<HTML>\n";
   print "<BODY BGCOLOR=#00FFFF>\n";
   print "<CENTER>\n";
   print "THANK YOU ";
   print "$fields{fname} $fields{lname}</BR>";
   print "I will write";
   print "you at<br>\n";
   print "$fields{email}<BR>\n";
   print "</CENTER>\n";
   print "</BODY></HTML>";