#!/usr/bin/perl

use File::stat;

opendir(DIR, '/cdw/dept/dss/home_dir/s006258/') 
   || die "Unable to open directory '/cdw/dept/dss/home_dir/s006258/': $!";

while ($file =~ <DIR>) {
	   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
       $atime,$mtime,$ctime,$blksize,$blocks)
           = stat($file);
           print"$file , $mtime\n";

}
closedir DIR;