sub GetPaths  {
    my @paths = path( shift )->lines_utf8;
    s/\x{feff}//g for @paths; # "de-bom"
    s/\s+$// for @paths; # "chomp"
    return @paths;
} ## end sub GetPaths