Help for this page
my $date = strftime "%x", localtime; $date =~ tr#/#-#;
use POSIX qw( strftime ); my $date = strftime "%m-%d-%y", localtime; print "$date\n";
my $dir = strftime "Results %m-%d-%y", localtime;