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