Select Code to Download

use Time::Local;
# get date and time
...

# get epoch (use 0 for seconds)
my $epoch = timelocal(0, $min, $hr, $d, $m, $y);

use POSIX 'strftime';
my $fmt_date = strftime('%Y-%m-%d', localtime($epoch));