#!/usr/bin/perl
 
use CGI; 
my $req = new CGI; 
my $f	= $req->param("TOPPIX");


print "Content-type: text/html\n\n";
print "<h1>Test Result</h1>";
print "Everything OK $f";