### begin_: init perl
    use strict;
    use warnings;
    use File::Basename;
    use File::Find;

### begin_: process all files in the dir tree
    my  $oDataTable    = dirTreeToDataTable("c:/temp");

    for my $oDataRec (@{$oDataTable}){
        next unless $oDataRec->{extension} eq '.html';
        ProcessTheFile($oDataRec->{path});
    }