Select Code to Download

STDCHAR *
PerlIOBuf_get_base(pTHX_ PerlIO *f)
...
    }
    return b->buf;
}

open my $fh, "<", $^X or die;
while (<$fh>) { }