sub get_next_record {
    my($fh) = @_;

    local $/ = "//\n";
    my $record = <$fh>;
    return $record;
}