#!/usr/bin/perl -w -T
use strict;
use CGI;
my $query = new CGI;


print "Content-type: text/plain\n\n";

foreach my $p ( $query->param() ) {
  print "Kenttä $p sai arvoksi: " . $query->param($p) . "\n";
}

my $OUTFILE;
open($OUTFILE, ">>output.txt") or die "Can't open output.txt: $!";
    
$query->save($OUTFILE);
close $OUTFILE;

my $INFILE;
open($INFILE, "output.txt") or die "Can't open output.txt: $!";


while ( !eof($INFILE) ) {
     $query = new CGI($INFILE);
     print "Nimi:" . $query->param('name') . "\n";
}