I have code that downloads a Tomcat web page. When I run the code below, it replaces the port 8082 with 80, causing it to timeout. Is there a way in HTTP::Request to use my port instead? I looked at the doc on cpan, but found nothing on the port.

I'm hoping not to have to use SOAP::Lite, as it would seem overkill. I only have to check that the http protocol is available on the port I specify. Telnetting to the port should work, in theory, but I'd really rather prefer something that gets a real HTTP response.

use LWP;
use HTTP::Request;

my $req = HTTP::Request->new(GET => 'http://ip-address/axis2/services/
+Service1:8082');
my $ua = LWP::UserAgent->new;
my $res =  $ua->request($req);

if (($res->is_success) or ($res->status_line =~ /404 Not Found/)){
        print "HTTP OK - connected\n\n";
}
else {
        print "HTTP ERROR " . $res->status_line, " \n\n";
}
[download]