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

for pipe("find -iname '*.txt'").lines -> $filename {
    ...
}