#!perl
use strict;
my $path = "\\\\domain.local\\users\\";
for ( qx(dir /S $path) ){
  print $_ if /Directory of|File\(s\)/;
}
[download]