sub GetPaths  {
    use File::BOM;
##    my @paths = path( shift )->lines_utf8;
    my @paths = path( shift )->lines( { binmode => ":via(File::BOM)" } );
    s/\s+$// for @paths; # "chomp"
    return @paths;
} ## end sub GetPaths