use strict;
use WWW::Mechanize;
use HTML::Form;
use LWP::UserAgent;

my $url = "a valid url to an .aspx form here";

my $mech = WWW::Mechanize->new(autocheck => 1);
$mech->get( $url ) or die("Could not connect to $url");

my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);

my @forms = HTML::Form->parse($response);

foreach my $page (1..15) {
	foreach my $form (@forms) {
		my @fields = "";
		@fields = $form->inputs;
		foreach my $hurr (0..$#fields) {
			print "$fields[$hurr]\t $page / 15\n";
		}
	}
}