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