#! /usr/bin/env perl6

sub MAIN ($file-name)
{
  my $fh = open $file-name;

  for $fh.lines -> $line
  {
    say $line if $line.contains("a");
  }
  $fh.close;
}