use strict;
use warnings;

use WWW::Mechanize qw( );
use File::Basename qw( basename );

sub usage {
   my $prog = basename($0);
   print STDERR ("usage: $prog {zipcode}\n");
   exit(1);
}

my ($zip_code) = @ARGV;
defined($zip_code) or usage();

my $browser = WWW::Mechanize->new();
$browser->get("http://www.unitrinspecialty.com/us/locator/");

$browser->form_name('zipForm');
$browser->field("zipCode", $module_name);
$browser->click();