Select Code to Download

use feature 'say';
use DateTime::Format::Strptime qw(strptime strftime);
...
  ->parse_datetime($raw_date)
  ->ymd('');
say $date;