#!/usr/bin/perl -w
use strict;

use WWW::Mechanize;

my $m = WWW::Mechanize->new();
$m->agent_alias('Linux Mozilla');


$m->get('http://alumni.nd.edu/s/1210/start.aspx?sid=1210&gid=1&pgid=3&cid=40');

printf("%s\n", $m->title());
$m->dump_forms();
$response = $m->submit_form(
	form_number => 1,
	fields		=> {
		'cid_40$txtUsername'	=> '<username>',
		'cid_40$txtPassword'	=> '<password>',
	}
);

die unless ($m->success);
#printf("response message is %s\n", $response->message);
printf("%s\n", $m->title());