#!/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;