なんか色々進んでるー

>>577
こんな感じ？これで動くのだろか？

use LWP::Simple;

my $url;

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
} else {
$data = $ENV{'QUERY_STRING'};
}

$data =~tr/+/ /;
$data =~s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;

my @pairs = split(/&/,$data);
foreach $pair (@pairs) {
my ($name, $value) = split(/=/, $pair);
if ($name eq "url") {
$url = $value;
}
}

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

print get($url);

>>582
私もLWP::UserAgentでーす。