Select Code to Download

my $p = HTML::TokeParser::Simple->new($ARGV[0]);

use strict;
use warnings;

use HTML::TokeParser::Simple;
(my $url = shift) or die "syntax:  html_test  <filename>\n";
my $p = HTML::TokeParser::Simple->new($url);