#!perl -w use strict; open(OUTFILE,">paramsfile.txt"); foreach (@ARGV) { print OUTFILE "$_\n"; } close OUTFILE;