use LWP::UserAgent;
use strict;
use warnings;

my $ua = LWP::UserAgent->new();
for my $index (0 .. 47, 3200) {
	print "downloading $index.gif\n";
	my $res = $ua->get("http://us.i1.yimg.com/us.yimg.com/i/us/we/52/$index.gif");
	if ($res->is_success) {
		open GIF, ">", "weather$index.gif";
		binmode(GIF);
		print GIF $res->content;
		close(GIF);
	} 
}