#!/usr/bin/perl -w

use strict;
use warnings;
use WWW::Mechanize;

my $browser = WWW::Mechanize->new();

$browser->get("http://internetseite");

my @formulare = $browser->forms();

foreach my $formular ( @formulare ) {
	printf $formular->dump(), "\n";
}