#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;

my $post_response = "";

my $m = WWW::Mechanize->new();
$m->agent_alias('Linux Mozilla');
$m->add_handler("request_send", sub { shift(@_)->dump(); return });

my $url = "http://alumni.nd.edu/s/1210/start.aspx?sid=1210&gid=1&pgid=3&cid=40";

$m->get($url);

$post_response = $m->submit_form(
	form_number => 1,
	button		=>	'cid_40$btnLogin',
	fields		=> 
	{
		'cid_40$txtUsername'	=> 	'<username>',
		'cid_40$txtPassword'	=> 	'<password>',
		'__EVENTTARGET'			=>	'',
		'__EVENTARGUMENT'		=>	'',
		'cid_654$tbSearch'		=>	'',
		'jsMenu'				=>	'',
		'cid_40$btnLogin'		=>	'Login'
		
	}
	
	
);


printf("POST RESPONSE STATUS LINE: %s\n", $post_response->status_line);
printf("POST RESPONSE HEADER TITLE: %s\n", $post_response->header('title'));