use HTML::TokeParser;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $stream = HTML::TokeParser->new(\$html);
$url = "https://catalog.amherst.edu/amherst/frmCourseSearch.aspx?FormTableName=CourseSearch";

$mech->get($url);
$html = $mech->content();

open HTML ,'>>html.html';
print HTML $html;