use WWW::Mechanize 1.75;
my $ua = WWW::Mechanize->new;
$ua->get(q{file:123654789987.html});
$ua->dump_forms;
__END__
POST file:/xxx.cgi?login
  login_name=                    (text)
  password=                      (password)
  login=<UNDEF>                  (submit)
  login=<UNDEF>                  (submit)