#!/usr/bin/perl -w
use strict;

  use WWW::Mechanize;
  use HTML::TokeParser;
  
  my $agent = WWW::Mechanize->new();
  $agent->get("http://www.perlmonks.com/");
  
  my $stream = HTML::TokeParser->new(\$agent->{content});
  $stream->get_tag("ul");