Assuming you are on *nix, why would you not use find command along with awk:

 ./foo.pm`find . -mtime 0  -print |  awk 'BEGIN{line=""};{line=line " 
+" $0};END {print line }'`
[download]

Your code would have to remove "." and '..', but this is trivial.