perlがうごきません
<html>
<head>
<title>form3</title>
</head>
<body>
<form action="form3.cgi" method="post" name="form3">
<input type="text"name="form3">
<input type="submit"value="送信">
</form>
</body>
</html>
:::::::::::：：：：：：：：：：：：：：：：：：：：
#! /usr/bin/perl
if($ENV{"REQUEST_METHOD"} eq "GET"){
$str=$ENV{QUERY_STRING"};
}else{
read(STDIN, $str, $ENV{"CONTENT_LENGTH"});
}
$str=~ tr/+/ /;
$str=~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("c", hex($1))/eg;
foreach(split(/&/, $str)){
my ($key, $value)=split(/=/, $_);
$data{$key}=$value;
}
print "Content-type:text/html\n";
print "\n";
print "<html>\n";
print "<head><title>form3</title></head>\n";
print "<body>$data{'form3'}</body>\n";
print "</html>\n";
exit;
:::::::::::::::::：：：：：：：：：：：：：：：
どうしてもうごきません。
どこかスクリプトがまちがっているのでしょうか。
パールのパスはあっています。
お礼
有り難うございますお陰で出来ました・・・(^^) 全角処理のところで手こずりましたが 上手く取得することが出来ました。 本当に有り難うございました・・・m(_ _)m