#!/usr/bin/perl
use WWW::Mechanize ;
use LWP::Debug qw(+);
use strict;
use warnings;
use Data::Dumper;

my $mech = WWW::Mechanize->new ;
$mech->proxy(['http','ftp'], 'http://63.117.9.150:8080/');

#Fetch URL or Die Tryin'
$mech ->get("http://<application_ip>:8082/metrica_root/Login") ;

if ( $mech ->success ) { print "Connection Success ", $mech ->res->status_line, "\n"; } 
else                   { print "Status :" , $mech ->res->status_line , "\n"; }

my @webforms = $mech->forms();
print Dumper [ @webforms ];

print "Trying to print the content ......\n";
$mech->content;

foreach my $form (@webforms) {
   my @inputfields = $form->param;
   
   foreach my $inputfield (@inputfields) {
	  print Dumper [ $inputfield ];
   }
   
   print Dumper [ $form ];
}


##</code><code>##

Output :-
LWP::UserAgent::new: ()
LWP::UserAgent::proxy: ARRAY(0x1bf0e28) http://63.117.9.150:8080/
LWP::UserAgent::proxy: http http://63.117.9.150:8080/
LWP::UserAgent::proxy: ftp http://63.117.9.150:8080/
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking 155.226.230.173 for cookies
HTTP::Cookies::add_cookie_header: Checking .226.230.173 for cookies
HTTP::Cookies::add_cookie_header: Checking 226.230.173 for cookies
HTTP::Cookies::add_cookie_header: Checking .230.173 for cookies
HTTP::Cookies::add_cookie_header: Checking 230.173 for cookies
HTTP::Cookies::add_cookie_header: Checking .173 for cookies
LWP::UserAgent::send_request: GET http://155.226.230.173:8082/metrica_root/Login

LWP::UserAgent::_need_proxy: Proxied to http://63.117.9.150:8080/
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 266 bytes
LWP::Protocol::collect: read 301 bytes
HTTP::Cookies::extract_cookies: Set cookie JSESSIONID => 000000000000001a49444c3
a687474702f52657150726f636573736f723a312e300000000000000100000000000000ac0001020
0000000103135352e3232362e3233302e31373300c39300000000004900504d43000000000000001
a49444c3a687474702f52657150726f636573736f723a312e300020200000000974635f696e73743
1002020200000000d2f746f6d636174345f706f61000000000000000356495303000000050005070
17f00000000000000000000080000000056495300000000010000001400000000000100010000000
00001010900000000_2925080BF3F637D984812BF731798941
LWP::UserAgent::request: Simple response: OK
Connection Success 200 OK
$VAR1 = [];
Trying to print the content ......