sub read_n_lines
{
    my ($fh, $count) = @_;
    my $buffer;
    $buffer .= $_ for 1 .. $count;
    return $buffer;
}