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