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";
}

##</code><code>##

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

##</code><code>##

Error opendir on '//192.168.1.44': Invalid argument at dir.pl line 44.