while(<>) {
    last if $number_of_lines && $. > $number_of_lines;
     ...
}