use strict;
use warnings;

my $filename = shift;
open my $file, "<", Filename or die "Cannot open $filename: $!";
chomp (my $lastrecord = <$file>); # Reads in the first record

for (my $rec = 1; $rec <= $lastrecord and not eof($file); $rec++) {
     chomp(my $line = <$file>);
     print "Line $rec: $line\n";
};