for (1 .. 5) {
    print scalar <>;
    last if eof;
}
[download]

Or, if you're certain there are at least five lines:

Calling the diamond operator <> in scalar context will return 1 line, assuming $/ is set to "\n". (Note - 'while' calls in scalar context while 'foreach' and 'for' call in list context.)