my $date = strftime "%x", localtime;
$date =~ tr#/#-#;

##</code><code>##

use POSIX qw( strftime );
my $date = strftime "%m-%d-%y", localtime;
print "$date\n";

##</code><code>##

my $dir = strftime "Results %m-%d-%y", localtime;