#!/usr/local/bin/perl

print "Content-type:text/html\n\n";

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

    Source: geocities.com/tokyo/garden/8818/download/cgi

               ( geocities.com/tokyo/garden/8818/download)                   ( geocities.com/tokyo/garden/8818)                   ( geocities.com/tokyo/garden)                   ( geocities.com/tokyo)