Select Code to Download

$Variables[$X]=$Year."-".$Months{$Month} ."-" . $Day ;

use strict; use warnings; use feature 'say';
use DateTime::Format::Strptime;
...
my $dt = $parser->parse_datetime( $date );

say $dt->strftime('%F');

2017-04-23