$dir = "/cdw/dept/dss/home_dir/s006258";

die("Unable to open directory '$dir': $!")
	unless(opendir($dh, $dir));

while (defined(my $file = readdir($dh))) {
   $path = $dir."/".$file;
	if(-d $path) { 
   	$mtime = (stat($path))[9];
	print "$path ,".scalar(localtime($mtime))."\n";
   	}
   	
}

closedir $dh;