#!/usr/bin/perl
use strict;
use warnings;

use HTML::TokeParser;

my $file = shift(@ARGV) or die "Usage: '$0 <filename>'\n";

my $p = HTML::TokeParser->new($file) or die "Can't open: '$ile' ($!)\n";

...