#!/usr/bin/perl -w

print "test\n";


print "Content-type: text/html\n\n";
print "<h2>—\–ñ‚Ì—\–ñ�ó‹µ</h2>\n";
open(FILE, "< request.txt");
while(<FILE>) {
chomp();
	($mode,$ym,$yd,$sm,$sd,$sw) = split(/\t/, $_);
	print "—\–ñŽí—Þ $mode —\–ñ“ú $ymŒŽ$yd“ú ‘–�s“ú $smŒŽ$sd“ú $sw<br>\n";
}

exit;
($