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

my $mech = WWW::Mechanize->new ;
#my $ua = LWP::UserAgent->new;
$mech->proxy(['http','ftp'], 'http://proxy_ip_dress:port_number/');

 $mech ->get("http://application_ip_address:8082/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 ]; # @webforms is empty

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