-M in modperl

[LUKE]

opendir( DIR, "/path" );
my @dots = grep(/recovery/,sort { -M $a <=> -M $b } readdir(DIR));
closedir(DIR);

Can not work in mod_perl?? How to solve it??