Yes, I didn't think of that. Maybe this would be better:

sub gulp {
    my ($file, $count) = @_;
    my @lines;
    for (1..$count) {
       push @lines, scalar <$file>;
       last if eof $file;
    }
    return @lines;
}
[download]