{
  my @starters = @ARGV ? @ARGV : 'F:/test';
  @ARGV = ();
  find sub {
  
  if (($_ =~ ".c") or ($_ =~ ".h")) {
  push @ARGV, "$File::Find::dir/$_";
  }
  }, @starters;
}
while (<>) {
...
}