RosettaCodeData/Task/Input-loop/Perl-6/input-loop-3.pl6

for run(«find -iname *.txt», :out).out.lines -> $filename {
    ...
}