use WWW::Mechanize;
use HTML::TokeParser;
my $mech = WWW::Mechanize->new();
my $stream = HTML::TokeParser->new(\$html);

$url = "http://students.yale.edu/oci/search.jsp";

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

while(my $token = $stream->get_token()){
	if($token->[1] eq "options"){
		print $stream->get_text."\n";
		}
}