Select Code to Download

use Time::Local;
my $time = timelocal(0,0,0,$mday,$month,$year);

@list = <*_weather.*>;