#! perl -slw
use strict;

use Inline C => << '__C__', NAME => 'test', CLEAN_AFTER_BUILD => 0;
#include <stdio.h>

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

__C__

for ( 1 .. 1e7 ) {
    print test( 'bill', 'fred' );

    my( $p, $q ) = ( 'fred' );
    print test( $q, $p );

    $q = 'bill';
    print test( $q, $p );

    $q = 1;
    print test( $q, $p );

    $p = 1;
    print test( $q, $p );
}
__END__
c:\test>test
Modification of a read-only value attempted at c:\test\test.pl line 25.

c:\test>