www.perl.com
Perl Programming
WWW::Mechanize
  • Subclass of LWP::UserAgent
  • Emulates a full browser

        use WWW::Mechanize;
	my $mech = new WWW::Mechanize(autocheck => 1); # Die if I/O fails
	$mech->get('http://www.download.com/');
	my @links = $mech->find_all_links(
            tag => "a", text_regex => qr/\bdownload\b/i );
	for my $l (@links) { print $l->text, "\n"; }
      
http://stuff.mit.edu/iap/perl/