#!/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'}";
コレじゃ駄目なのかい?同じ事だと思うんだが動かんよ