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

##</code><code>##

use strict;
use warnings;

##</code><code>##

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