Inspired by Develop your own weather maps and alerts with Perl and GD, I have put together a script which downloads the base radar image from a specific site at a specified interval.
use strict; use LWP::Simple; use POSIX; my $refresh = 1800; do { my $base="http://radar.weather.gov/ridge/RadarImg/N0R/MTX_N0R_0.gif"; my $timestring = strftime( "%Y%m%d_%H%M%S", gmtime() ); my $savefilename = "SLCRadar_".$timestring.".gif"; my $status = getstore($base,$savefilename); print $status."\n" ; sleep $refresh; } while ($refresh);See my Standard Code Disclaimer
