use strict;
use warnings;
use Path::Tiny;

my $dir = '//192.168.1.44/somedir';

path( $dir )->visit( sub {
    print "$_\n" if /^[^.]/ && $_->is_dir;
});