use POSIX;
my $procdate = POSIX::strftime('%Y-%m-%d-%H-%M-%S', localtime);
my $tmsa = "tmsa.out-$procdate";
system .... $tmsa