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