use WWW::Mechanize;
use HTML::TokeParser;
my $mech = WWW::Mechanize->new(cookie_jar => undef);
$url="http://www.utsc.utoronto.ca/~registrar/scheduling/timetable";
$prefix = "ANT";
$mech->get($url);

$mech->submit_form(
	fields =>{
		sess => "summer",
		course => $prefix,
		},
	);

print $mech->content();