sub loadAndParse($%)
{
    my $self = shift;
    my ($filename,%tokens) = @_;
    $data = loadFile($filename);
    $body = parseData($data, %tokens);
    $debug .= "parseData has been run<br>";    
   
    return($body);
}