#!/usr/bin/perl -wT
use strict;
use CGI;

my $q     = CGI->new();
my @names = $q->param;

open( FLAT, ">> flatfile.data") or die $!;
print FLAT @names; #format however you wish
close(FLAT);
...
#display the flat file how you like, i.e.
#print $query->header("text/html")
...