Select Code to Download

use List::Util qw( max );
use POSIX      qw( strftime );
...
}

my @filtered_times = map $by_date{$_}, sort keys(%by_date);

use POSIX qw( strftime );

...
      $last_date = $date;
   }
}