Borks.xs 

MODULE = Text::Borks    PACKAGE = Text::Borks

SV*
borks(n)
        int n
    INIT:
        SV* out = newSV(10);
        int i;
    CODE:
        SvPOK_on(out);
        for(i = 0; i < n; i++) {
            sv_catpv(out, "Bork");
        }
        RETVAL = out;
    OUTPUT:
        RETVAL