$mech->get($url);
  foreach my $form ($mech->forms()) {
     print "<form "...;
     foreach my $input ($form->{elements}) {
         print "<input..."
         foreach my $attr ($input->{attributes}) {
             print ...
         }
     }
  }