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;