use POSIX qw/ strftime /;
my $d = strftime("%Y-%m-%dT%H:%M:%S", localtime);
my $filename = "...-$d";