use LWP::Simple;
use strict;
use warnings;

for my $index (0 .. 99) {# actually 47 is the last index
    print "downloading $index.gif\n";
    my $res = getstore("http://us.i1.yimg.com/us.yimg.com/i/us/we/52/$index.gif", "weather$index.gif");
}