#!/usr/local/bin/perl

if($ENV{'REQUEST_METHOD'} eq 'POST') {
	read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
} else {
	$buf = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$buf);
foreach $pair (@pairs) {
	($name, $val) = split(/=/, $pair);
	$name =~ tr/[A-Z]/[a-z]/;
	$val =~ tr/+/ /;
	$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$FORM{$name} = $val;
}

print "Location: $FORM{'menu'}";

ｺﾚじゃ駄目なのかい？同じ事だと思うんだが動かんよ