use Path::Tiny qw/ path cwd /;
my $dir = '//192.168.1.44/somedir';
my @files = path( $dir )->children;
my @myDirectories = path( $dir )->children;
for my $dirName ( @myDirectories ){
	if  (!( $dirName =~ m/\/\./ ))  {  # skip dir like /xxxx/.xx
		print "$dirName\n";
	}
}