#!perl -w
use strict;

open(OUTFILE,">paramsfile.txt"); 

foreach (@ARGV) {
  print OUTFILE "$_\n";
}
close OUTFILE;

##</code><code>##

#!perl -w
use strict;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = $year + 1900;
$mon = $mon+1;
if (length($mon)<2) { $mon = "0" . $mon; }
if (length($mday)<2) { $mday= "0" . $mday; }
my $fn = "paramsfile_" . $year . "_" . $mon . "_" . $mday . ".txt";

open(OUTFILE,">$fn"); 

foreach (@ARGV) {
  print OUTFILE "$_\n";
}
close OUTFILE;