#!/usr/bin/perl
open ( FH,'data' ) or die ( "data: $!\n" );
while( <FH> ) {
  if ( eof ( FH ) ) {
    print $.
  }
}