use POSIX qw(strftime);
my $todays_date = strftime '%x', localtime;