in reply to Finding number of lines in STDIN

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

[download]
$. is an automatic counter for the line numbers. (See perlvar)

In Section Seekers of Perl Wisdom