I tried this and it seems to return "true" (1 value) on my directory even though last added file is a week old. Please advise what I am doing wrong?

#!/usr/local/bin/perl
use strict;
my $mydir = "/mydirectorypath/directory";
my $new_one = 0;
opendir(DIR, $mydir) or die("...");
while (my $file = readdir(DIR)) {
   if (-M $file < .5) {
   $new_one = 1;
   last;
}
}
closedir(DIR);
print "$new_one\n";
[download]