# now write to the file

open(OUT, ">/u001/data/slatrk/data/comments.dat");
foreach my $p (param()) {
   print OUT param($p) . "\n";
}
print OUT "\n";
close(OUT);