Select Code to Download

#! perl -slw
use strict;
...
billfred
1fred
1fred1

SV* test( SV *a, SV *b ) {
    if( SvREADONLY( a ) )
...
    sv_catsv( a, b );
    return a;
}