#!/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 ];
}