while (<MAINDB>) {
   find(\&wanted(\*C_LOG, \*R_LOG), $_);
}

##</code><code>##

Not a CODE reference at C:/Perl/lib/File/Find.pm 
line 432, <MAINDB> line 1.

##</code><code>##

sub wanted {
  my $clog_filehandle = shift;
  my $rlog_filehandle = shift;

  # $_ is file name (File::Find thing)
  my $file = $_;
  print "In wanted(), checking $file...\n";
  copy_file(  $file, 
              $clog_filehandle, 
              $rlog_filehandle) if (-f $f);
}