use strict;
    use warnings;
print "What zip code? \n";

    my $module_name = <STDIN>
      or die "Must specify module name on command line";


    use WWW::Mechanize;
    my $browser = WWW::Mechanize->new();


    $browser->get("http://www.unitrinspecialty.com/us/locator/");


    $browser->form_number(1);
    $browser->field("zipCode", $module_name);
    $browser->click();