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