$mech->dump_forms( ["https://login.binck.nl/klanten/Login.aspx?ReturnUrl=%2fklanten%2fdefault.aspx"] );


##</code><code>##

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;
}