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;
        $value =~ s/\n/ /g;

        $request{$name} = $value;


}


$url = "http://www.domain.com";
$refer = "http://www.domain.com";
$maillocation = "/usr/sbin/sendmail";

$stmail="$request{'category'}" ;
$tmail="$request{'email'}" ;
$tnmail="$request{'password'}" ;