#!/usr/bin/perl
$start_dir = "/usr1/www/log";
$file_glob = "*.*";

open(OUT,">/usr1/www/pages/mhs/psychotherapy/wwwstats/pnewlog.log");

open(FIND, "find $start_dir -name \"$file_glob\" -print |") || die "Couldn't run find: $!\n";
if (!FIND) { print "\n\nNo files matching $file_glob found in or below $start_dir\n\n"};

while ($filename = <FIND>)
{
   chop($filename);
   print "Processing $filename\n";
   open(IN,$filename) || die "Can't open $filename to read\n"; 
   while (<IN>)
   {
      if (/psychotherapy/) { print OUT; }
   }
}