use strict;
use warnings;
use File::stat;

my @scoll;

#my $path = "c:\\temp\\";
my $path = "\\\\domain.local\\users\\";

opendir DIR, $path or die $!;
my @alldir = readdir DIR;
closedir DIR;

foreach my $eachdir (@alldir) 
{
my $cpath = $path . $eachdir;
#print $cpath;
my $sEachDir = stat($cpath)->[7];
push (@scoll, $sEachDir); 

}

print "@scoll\n";