opendir (REPORT, "reports/") || &ErrorMessage;
foreach $filename (readdir REPORT) {	
  next if $filename =~ /^\.\.?$/;
  $modify = (stat($filename))[10];	
  push(@modifyreport, $modify);
}
closedir (REPORT);