use strict;
use warnings;
use diagnostics; 
use Data::Dumper;
use WWW::Mechanize::Firefox;


my $mech = WWW::Mechanize::Firefox->new(
    #env_proxy  => 1,
    #keep_alive => 1,
    #timeout    => 30,
    #autocheck  => 1,
	autoclose => 1, 
	js_JSON => 'native'
);
 
$mech->get("http://www.w3schools.com/html/html_forms.asp");

	my $index; 
	my @forms = $mech->forms();
	my $form_obj ;

	while ( ($index, $form_obj) = each @forms) {
		print "$index : ", $form_obj , "\n";
		#print Dumper ($form_obj), "\n";
				}

exit;