my $mech        = WWW::Mechanize->new();
$mech->get("http://sbw.dhl-usa.com/SchedulePickup/SchedulePickupInfo.asp?nav=");
$mech->form_name("form");
foreach my $key ( keys(%form_values) ) {
        $mech->field($key,$form_values{$key});
}
$mech->submit;