use Path::Tiny qw/ path /;
print "$_\n" for path( 'C:/Program Files' )->children;