Help for this page
foreach my $file (`find $dir -type f -name "*.txt"`)
foreach my $file (find->file()->name('*.txt')->in('.'))