Select Code to Download

my $date_string = sprintf('%02d%02d%02d', $year-1900, $month, $day);

use Time::Local qw( timegm );

...

   ...
}