use strict;
use warnings;
use File::Find; 

my	$in_dir			=	"C:\\temp";
my	$rc			    =	q{};

sub select_files {
	print ("function was entered\n");
}

$File::Find::prune		=	0;
$rc=find(\&select_files, $in_dir);
print ("find returned with $rc\n");
exit(0);