Select Code to Download

  for n in `seq 0 99` ; do wget http://us.i1.yimg.com/us.yimg.com/i/us
+/we/52/$n.gif ; done

use LWP::Simple;
use strict;
...
    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");
}

perl -MLWP::Simple -e 'getstore("http://us.i1.yimg.com/us.yimg.com/i/u
+s/we/52/$_.gif", "weather$_.gif") for 0 .. 99'