use Data::Dump;
my @forms = $mech->forms();
dd \@forms;