my $cmd = "$baseURL/$command?" .
  join( '&', map { "$_=" . uri_escape( $parameters->{$_} ) } 
    keys %$parameters );

##</code><code>##

my $request = HTTP::Request->new( 'GET', $cmd, [ 'Host', $host ] );
$request->protocol('HTTP/1.1');

##</code><code>##

my $agent = LWP::UserAgent->new();
my $response = $agent->request($request);