package HTML::pageParser;

use warnings;  # could take this out in production code
use strict;
use Carp;
use vars qw($VERSION);

##</code><code>##

    my $proto = shift;
    my $class = $proto;
    my $sysLoc = shift;
    my $self  = {};
    $self->{tokens} = [];
    $self->{sysLoc} = $sysLoc;
    bless ($self, $class);
    $debug .= "new class has been run<br>";
    return $self;

##</code><code>##

$self->{tokens} = {};  # in new()
my %tokens = %{ $self->{tokens} };  # in ParseData()