sub traversePath ($path) {


##</code><code>##

use strict;
use warnings;
sub traversePath {
    my $path = shift;