#!/usr/local/bin/perl

print "Content-Type: text/html; Charset=utf-8\n";
print "\n";

$QUERY_STRING = $ENV{'QUERY_STRING'};

@Fields_Data = split(/&/, $QUERY_STRING);

foreach $Field_Data ( @Fields_Data ) {
	($Name, $Value) = split(/=/, $Field_Data);
	$Value =~ tr/+/ /;
	$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$_GET{$Name} = $Value;
}

if ( $_GET{'value'} eq '送信' ) {
	$utf8 = '送信を受信しました';
}

print $utf8;