#!/usr/bin/perl
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = POST 'http://www.sfarmls.com/scripts/mgrqispi.dll',
       [ APPNAME => 'Sanfrancisco',
          PRGNAME => 'MLSLogin',
          ARGUMENTS => ('-ASS','-AA'),
        ];
print $ua->request($req)->as_string;

##</code><code>##

POST /scripts/mgrqispi.dll HTTP/1.1
Host: www.sfarmls.com
Content-Length: 56
Content-Type: application/x-www-form-urlencoded

APPNAME=Sanfrancisco&PRGNAME=MLSLogin&ARGUMENTS=-ASS,-AA