use strict;
use LWP::UserAgent;
use WWW::Mechanize;
use HTTP::Cookies;
use LWP::Debug qw(+);

my $user_name = '...';
my $password = '...';
my $base_url = 'https://courses.northwestern.edu/webapps/login/';

my $agent = WWW::Mechanize->new( autocheck => 1 );
$agent->cookie_jar(HTTP::Cookies->new);

$agent->get($base_url);
die $agent->response->status_line unless $agent->success;


#print $agent->content;
$agent->set_fields(
	user_id => $user_name,
	password => $password
);

#print $agent->content();
my $res = $agent->submit();

if ($res->is_success)
{
	print $res->as_string;
}
else
{
	print "Failed: ", $res->status_line, "\n";
}