use WWW::Mechanize qw();

my $browser = WWW::Mechanize->new(
    autocheck => 1,
);
$browser->get('https://shop.safeway.com/brands/swy/register/signin.asp?from=/superstore');

$browser->submit_form(
    with_fields => {
        pzipcode    => 90210,
    },
);