#!/usr/bin/perl
use strict;
use warnings;

use File::Find;

find( { wanted => \&get_files, preprocess => \&nodirs }, "C:/test" );

sub nodirs 
{ 
   grep !-d, @_;
}

sub get_files 
{
   #return unless ( -f $_ ); #testing without this statement
   # prints:
   # C:/test <- this is a directory nevertheless!
   # C:/test/SomeBogusFile.txt 
   
   return unless ( -f $_ ); #testing with this statement
   # prints:
   # C:/test/SomeBogusFile.txt 
   
   print "$File::Find::name \n";
}        

__END__
Test Directory structure
C:/test
   SomeBogusFile.txt
   /subdirtest
      docinbsubdir.txt