Select Code to Download

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

...
  
  my $stream = HTML::TokeParser->new(\$agent->{content});
  $stream->get_tag("ul");