Select Code to Download

my $mech = WWW::Mechanize->new();
my $stream = HTML::TokeParser->new(\$html);
...
my @coursename;
$mech->get($url);
$html = $mech->content();