my $current_abs_dir = "/path/to/opendir/directory";
while ($name = readdir(REP)) {
    $abs_name = "$current_abs_dir/$name";
    if (-M $abs_name >= 10) {

##</code><code>##

   perldoc -f opendir

   perldoc -f readdir