I think you'd want to shift @files; rather than pop because -M returns the age of the file in days, not the actual mtime.

Also, it looks like a last minute name change bit you. That should be readdir SRC; rather than DIR.

-sauoq
"My two cents aren't worth a dime.";