Getting Line numbers in perl.

#!/usr/bin/perl
$f = "code.txt";
$n = "0";
open (TXT,"$f");
   print "Content-type: text/html\n\n";
seek (TXT,0,0);
while ($line = <TXT>) {
$n++;
print "$n $line<br>\n";
}
close (TXT);

Original - perl Code #!/usr/bin/perl use strict; use warnings; use CGI; my $q=new CGI; my $code=$q->param('code'); @lines=split (/\n/, $code); my $loop=1; foreach (@lines) { print $loop."=>".$_."\n"; $loop++; }

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
 
my $q=new CGI;
my $code=$q->param('code');
@lines=split (/\n/, $code);
my $loop=1;
foreach (@lines) {
  print $loop."=>".$_."\n";
  $loop++;
}