See sv_gets() in perlapi. Quoted,

    sv_gets Get a line from the filehandle and store it into
            the SV, optionally appending to the currently-
            stored string.

               char*   sv_gets(SV* sv, PerlIO* fp, I32 append)
[download]