# this file reads a text file and loads the contents into
# an array
sub loadFile($)
{
    my $self = shift;
    my ($filename) = @_;
    open (FILE, "<$filename") or die("cannot open the file: $filename");
    while (<FILE>) {
        $body .= $_;
    }
    close(FILE);

    return($body);
}

##</code><code>##

my $myPage = HTML::pageParser->new($sysLoc);

$myPage->{tokens}{fName} = "Brandon"; #definite problem here, dunno how to format this
$myPage->{tokens}{lName} = "Smith";   #definite problem here, dunno how to format this
$data = $myPage->loadAndParse("parseThis.txt");