use Modern::Perl;
use File::Find;
use File::Slurp qw/read_file/;

my $startDir = '.';

find( { wanted => \&countLines, }, $startDir );

sub countLines {
	/\.txt$/ or return;

	my $completePath = $File::Find::name;
	my $curDir       = $File::Find::dir;
	my $curFile      = $_;

	my @fileLines = read_file $curFile;
	my $numLines  = @fileLines;
	say "Cur dir: $curDir; Cur file: $curFile; Num Lines: $numLines";
}