use Path::Tiny;
my $dir = '//192.168.1.44/somedir';
my @files = path( $dir )->children( qr/\.txt\z/ ); #Excludes "." and ".." automatically.
my @myDirectories = path( $dir )->children;
for my $dirName ( @myDirectories ){
		print "$dirName\n";
}