$logdir = "\\\\Server\\e\$\\log";
opendir($fd, $logdir) or die "Cannot open directory: $!";
@AllFiles = readdir($fd);
print "$_\n" for @AllFiles;