my $ua = WWW::Mechanize->new;
my $res = $ua->post( 
    'http://students.yale.edu/oci/resultWindow.jsp', 
    Content => 'term=200901&GUPgroup=A&CourseNumber=&ProgramSubject=ACCT&InstructorName=&timeRangeFrom=08&timeRangeTo=21&ExactWordPhrase=&ycRules=new&distributionGroupOperator=AND&Submit.x=145&Submit.y=7'
);
$ua->follow_link( tag => 'frame', name => 'resultFrame' );
$ua->follow_link( tag => 'frame', name => 'resultList' );
print $ua->content;