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

##</code><code>##

@list = <*_weather.*>;