#!/usr/local/bin/perl

	read(STDIN, $buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
 $value=~ tr/+/ /;
 $value=~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
$FORM{$name}=$value;
}

	print"Content-type:text/html\n\n";
	print"<html><title>CGI Exercise-01></title>";
	print"<body>";
	print"Hello, <font color=blue>$FORM{'name'}</font>, your E-mail is : <font color=blue>$FORM{'email'}</font>\n";
	print"</body></html>\n";