#!/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"CGI Exercise-01>";
print"";
print"Hello, $FORM{'name'}, your E-mail is : $FORM{'email'}\n";
print"\n";