Mechanize.pm:2128: Not a GLOB reference
 # print {$fh} $form->dump, "\n"; gives an error
sub dump_forms {
    my $self = shift;
    my $fh = shift || \*STDOUT;

    for my $form ( $self->forms ) {
        print {$fh} $form->dump, "\n";
    }
    return;
}