perl -p -e "s/^(File::Find::find)/my \$cwd = Cwd::cwd();$1/"

##</code><code>##

foo . -mtime -7 -ls

##</code><code>##

open(STDOUT,'|perl') or die "...";