use LWP;
$url = 'xx';
$ua = LWP::UserAgent->new();
$form = $ua->get($url) or die "Couldn't fetch $url";
$form->is_success() or die $form->message();
print $form->content(); 

<form name="LoginUserForm" method="post" action="/jow/order/dispatch/login.do;jsessionid=D9F0083DED4D516B7A58A3F2DB301B5F.prxapp01a">

use LWP;
use HTML::Parser;
$url = 'xx';
$ua = LWP::UserAgent->new();
$form = $ua->get($url) or die "Couldn't fetch $url";
$form->is_success() or die $form->message();
print $form->content(); 

my $session = "";
my $parser = HTML::Parser->new;
$parser->handler(start => \&start_handler,"tagname,attr,self");
$parser->parse( $form->content );

print $session;

sub start_handler{
    my ($tag,$attr,$self) = @_;
    return unless $tag eq 'form';
    
    my $action = $attr->{action};
    ($session) = $action =~ /jsessionid=(.*)/;
}