use strict;
use warnings;
use autodie;

my $filename = 'Text2.txt';
my $count = 0;

open my $file,'<',$filename;

while (my $line = <$file>) {
	++$count; # keep track of the number of lines
	printf "Line $count: $line";
}
close $file;

exit 0;