Select Code to Download

my $counter;

...
$counter++;
print "Line number is : $counter\n";
}

while ( <$fh> ) {
print "Line number is :" . $. . "\n";
}