#!/usr/bin/perl -w

use strict;
use Frontier::Client;

my $server_url = 'http://vendorserver.com/service.php';
my $server = Frontier::Client->new('url' => $server_url, 'encoding' => 'ISO-8859-1', 'debug' => 0);

my @params = 
          {
            'tot-bed-lo' => '1',
            'page' => '1',
            'state' => 'ut',
            'city' => 'Somecity',
            'report-type' => 'long',
            'method' => 'searchres',
            'price-hi' => '950000',
            'home-type' => [
                             '1'
                           ],
            'price-lo' => '100000',
            'sort-by' => 'price asc',
            'zip' => [
                       '55555',
                       '55554'
                     ],
            'dev-tag' => '12345',
            'report-struct' => 'all',
            'tot-bath-lo' => '1'
          }
;

my $result = $server->call('searchres', @params);

use Data::Dumper;
print Dumper(\$result);