$dir = "\\\\server\\share";
opendir DH, $dir or die "Cannot open $dir: $!";
@files = ( readdir DH );
print "$_\n" for @files;