my @files = `find . -name "*.pl";