####
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
my $req = POST 'http://companyname.com/Customer/support/Patch/releases/ClientDownload/download/download.asp', [continue => 'Yes'];
#$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0&action=abort&continue=Yes');
my $res = $ua->request($req);
if ($res->is_success) {
print $res->content;
if ($res->content =~ m/no software is available/) {
print "Did not get desired page\n";
}
} else {
print "Bad luck this time\n";