my $line_count=0;
while (<$INPUTFILE>) { # read a line
    ++$line_count;     # increment counter
}