Select Code to Download

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

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

sub wanted {
  my $clog_filehandle = shift;
...
              $clog_filehandle, 
              $rlog_filehandle) if (-f $f);
}