use LWP::Simple;
   my $state = shift;
   my $url_base = 'http://iwin.nws.noaa.gov/iwin/';
   $state = uc $state;
 
   # get the raw HTML page for $state
   my $url = lc($url_base . "$state/zone.html");
   my $raw_data  = get($url);