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";
}