Select Code to Download

use Time::Piece;

...
  my $ymd = $d->ymd();
  print "$dt => $ymd\n";
}

use strict;
use warnings;
...
  my $ymd = $d->ymd();
  print "$dt => $ymd\n";
}