#!/usr/bin/perl -w
  use LWP::UserAgent;
use HTTP::Request::Common;
#  my $ua = LWP::UserAgent->new;
$ua = new LWP::UserAgent(keep_alive=>1,agent=>'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.11)
Gecko/20101012 Firefox/3.6.11');
  # Create a request

my $response = $ua->post('http://www.sanmateocountytaxcollector.org/SMCWPS/SearchParcels',{parcelNumber=>'048022230',searchType=>'parcel',listFirst=>'S',bkList=>'SS',addressTypeDsp=>'',addressType=>'',actionType=>'search',nextPage=>'./pages/parcelList.jsp',parcel1=>'048',parcel2=>'022',parcel3=>'230'});


 my $u = $response->header('location') or die "missing location: ", $response->as_string;
 print "redirecting to $u\n";
# $r = $ua->get($u);
 $r = $ua->simple_request(GET $u);
print $r->as_string;