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

for "filename.txt".IO.lines -> $line {
    ...
}