my @files = grep { !/^\.+$/ && -M $_ > 1; }
            map { $mydir."/".$_; } readdir(DIR);