my @stat = stat($file);
 print $file, " ", scalar(localtime($stat[9])), "\n";