line 1
line 2
line 3
line 4
line 5
line 99

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

open(my $fh, "<", "test.txt")
	or die "cannot open < test.txt: $!";

while (my $row = <$fh>) {
  chomp $row;
  # do something 
  print "line number $.\n";
}	

##</code><code>##

line number 1
line number 2
line number 3
line number 4
line number 5
line number 6