$mech->get("http://www.w3schools.com/html/html_forms.asp");

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

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