#!/usr/bin/perl

use CGI qw(:standard);

read(STDIN, $temp, $ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item(@pairs)
  {
	($key,$content)=split(/=/,$item,2);
	$content=~tr/+/ /;
	$content=~s/%(..)/pack("c",hex($1))/ge;
  }


$title = 'This is eca.uccs.edu. Thanks for Purchasing On-line with snoopy.com. ';
print header("text/html"),
      start_html(-title=>, $title),
      h1($title),
        hr,
        "<h1>Thanks for Using XML</h1>";

#print $content;
print end_html;

