my $counter;

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