view release on metacpan or  search on metacpan

demo/zip_to_whitwell  view on Meta::CPAN

  if ($zipcode !~ /\d{5}/) {
    print "That doesn't look like a zip code. Try again.\n";
    next;
  }
  my $agent = WWW::Mechanize->new;
  $agent->get("http://geocoder.us/service/csv/geocode?zip=$zipcode");
  my @values = split /,\s+/, $agent->content;
  if (@values) {
    my @names = to_whitwell(@values[0..1]);
    print "Zip code $zipcode is $values[2], $values[3]: '$names[0]' or '$names[1]'\n";
    print "Waiting 15 seconds for geocoder.us\n";
    sleep(15);
  }
  else {
    print "Can't find anything for zip '$zipcode'. Try another.\n";
    next;
  }
}