Process a file line by line

#!/usr/bin/env perl6
use v6;

my $filename = $*PROGRAM_NAME;

my $fh = open $filename;
for $fh.lines -> $line {
    say $line;
}

The lines() method of the file handle can return either all the lines, some of the lines. As it does it lazily in the above code we get an iterator behavior so the file is read line-by-line into the $line variable by the for loop. This script is very similar to what the unix cat command does.