my $line = 0;
my $file = "file.txt";
open (FILE, $file) || die "Could not open $file\n";
while (<FILE>)
{
      print "I am on line ", ++$line, "\n";
}
close (FILE);