use Path::Tiny qw/ path /;
for my $kid ( path( $dir )->children( qr/\.txt$/ ) ){
    print "$kid\n" if -f $kid;
}