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