use strict;
use POSIX qw(strftime);
my $name = strftime ("%Y%m%d-%H%M%S", localtime);