If it is indeed a login problem. The issue is that the OP is probably not keeping up with cookies.

Since HTTP is a stateless protocol, the server has no concept of a login. The application may have a session concept which is normally tracked with cookies. This is why I suspect the problem is cookie related. As I recall, LWP::UserAgent has a feature for using HTTP::Cookies to track a cookie jar that handles this issue.

Looks like it. Any sample code to begin with? Will I be able to handle Java Session using IOR?

It looks like you can either create an HTTP::Cookies object and pass it to the user agent object:

  require HTTP::Cookies;
  my $cookie_jar = HTTP::Cookies->new(
      file => 'cookies.txt,
  );
$ua->cookie_jar( $cookie_jar );
[download]

or default to a temporary in-memory cookie jar with

  $ua->cookie_jar( {} );
[download]

See HTTP::Cookies and LWP::UserAgent for more details.

G. Wade

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
use HTTP::Request::Common;


#Post 1 for login
my $userAgent = LWP::UserAgent->new(agent => 'Perlprogram/0.1');
my $message = "UserID: Username, Password: passwordr";

my $response = $userAgent->request(POST 'http://someip:port/',
Content_Type => 'application/text',
Connection => 'Keep-alive',
Content => $message);

#print $response->error_as_HTML unless $response->is_success;
#print $response->as_string;

if ($response->is_success) {

         print $response->content;

#post again if success
    my $userAgent2 = LWP::UserAgent->new(agent => 'Perlprogram/0.1');
    my $message2 = "GetParam";

    my $response2 = $userAgent2->request(POST 'http://someip:port/',
    Content_Type => 'application/text',
    Connection => 'Keep-alive',
    Content => $message2);


    print $response2->error_as_HTML unless $response2->is_success;
    print $response2->as_string;


    }
else {
    print $response->status_line, "\n";
    }
[download]