#!/usr/bin/perl

use LWP::UserAgent;
my $ua = new LWP::UserAgent;

my $string = <<END;
<?xml version="1.0" encoding="UTF-8" ?><ARCXML version="1.1">
<REQUEST>
<GET_FEATURES outputmode="xml" envelope="true" geometry="false" featurelimit="1000" beginrecord="1">
<LAYER id="6" /><SPATIALQUERY subfields="CCNO CRIME_DESC FROM_DATE PREM_DESC LOCATION POST DISTRICT"
 where="(FROM_DATE &gt;&#061; {ts '2009-01-01 00:00:00'}) AND (FROM_DATE &lt;&#061; {ts '2009-01-06 23
:59:59'})"> "><SPATIALFILTER relation="area_intersection" ><POLYGON>
<RING>
<POINT x="1427074.01374657" y="596810.020728368" />
<POINT x="1429830.95443664" y="596810.020728368" />
<POINT x="1429830.95443664" y="592945.463874963" />
<POINT x="1427074.01374657" y="592945.463874963" />
</RING>
</POLYGON>
</SPATIALFILTER></SPATIALQUERY></GET_FEATURES></REQUEST></ARCXML>
END

my $server = <<SERVER;
http://maps.baltimorepolice.org/servlet/com.esri.esrimap.Esrimap?ServiceName=BaltimorePolice&ClientVersion=3.1&Form=True&Encode=False
SERVER

my $response
= $ua->post("$server",
{ ArcXMLRequest => "$string",
FormCharset => 'ISO-8859-1', BgColor => '#000000', JavaScriptFunction => 'parent.MapFrame.processXML', FooterFile =>
'', HeaderFile => '', RedirectURL => '' });

if ($response->is_success) {
     print $response->content;  # or whatever
 }
 else {
     die $response->status_line;
 }