$dir = "\\\\server\\share";
@files = <$dir/*>;
print "$_\n" for @files;

##</code><code>##

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

##</code><code>##

$dir = "\\\\server\\share";
@files = `dir $dir /b /a-d`;
print @files;