#!/usr/bin/perl

use strict; # https://www.perlmonks.org/?node_id=11155355
use warnings;
use Path::Tiny;

system 'tree someDir';
print "\n";
my @f = path( 'someDir' )->children( qr/someFile*/i );
print "found  $_\n" for @f;