#!/usr/bin/perl
use strict;
#CGIモジュールをロード
use CGI;
#CGIモジュールのオブジェクトを生成
my $q = new CGI;

#yournameの値を取得
my $yourname = $q->param('yourname');
#ageの値を取得
my $age = $q->param('age');

#返信用データを生成
my $res_data = "\xEF\xBB\xBF"; #UTF-8用のBOM
$res_data .= "yourname\t${yourname}\n";
$res_data .= "age\t${age}\n";

#返信用データのサイズを取得
my $content_length = length $res_data;

#データ出力
print "Content-Type: text/plain; charset=utf-8\n";
print "Content-Length: ${content_length}\n";
print "\n";
print $res_data;
exit;