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

use HTML::TokeParser;

if ($#ARGV < 0) {
    print "Usage: 'schoolhtmlparser.pl file'\n";
    exit(1);
}
my $file = $ARGV[0];

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

....