#!/usr/bin/perl
use CGI;


my $cgi = CGI->new();
my @getval  = $cgi->url_param('DATA');
my @postval = $cgi->param('DATA');

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

print $getval[0] . "\r\n";
print $getval[1] . "\r\n";
print $postval[0] . "\r\n";
print $postval[1] . "\r\n";