#!/user/local/bin/perl
#
print "HTTP/1.0 200 OK\n";
print "Content-type: text/html\n\n";
print " File ricevuto\n";
 
if ($ENV{'REQUEST_METHOD'} eq "POST") {
        $buffer = <STDIN>;
}
$modulo = "/user/gruppo_1/zito/WWW/java/getdata.txt";
open (MODULO,  ">$modulo");
# Split up
@pairs = split(/\n/, $buffer);
foreach $pair (@pairs){
    print  MODULO "$pair\n";
    }
close (MODULO);