#!/usr/bin/perl
use CGI;


my $cgi = CGI->new();
my @val  = $cgi->param('DATA');

print "Content-Type: text/plain; charaset=euc-jp\r\n";
print "\r\n";

print $val[0] . "\r\n";
print $val[1] . "\r\n";
print $val[2] . "\r\n";
print $val[3] . "\r\n";