#!/usr/bin/perl
#フォームからデータ「yourname=○○○」を読み取り、
#読み込んだデーターを$inputに代入
$input = $ENV{ 'QUERY_STRING' };
#$inputから文字列をsplitで分解（=を削除）して$yournameと$nameに代入
($yourname,$name) = split /=/, $input;
#--nameデータのデコード処理
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#htmlを表示
print "Content-type: text/html\n\n";
print "\n";
print "こんにちは${name}さん
\n";
print "\n"
__END__