#!/usr/bin/perl
package TiedScalar;
use strict;
use warnings;
use base qw( Tie::Scalar );

sub TIESCALAR {
    my ( $classname, $initial_value ) = @_; 
    return bless \$initial_value, __PACKAGE__;
}

sub FETCH { return ${ +shift } }

sub STORE { 
    my ($self, $value) = @_;
    $$self = uc($value);
}

package main;
use strict;
use warnings;

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

SV* test( SV *a, SV *b ) {
    if( SvREADONLY( a ) )
        a = newSVpv( SvPVX( a ), 0 );
    else
       SvREFCNT_inc( a );

    if( !SvOK( a ) )
        sv_setpvn( a, "", 0 );

    sv_catsv( a, b );
    return a;
}

__C__

my ( $q, $p );

tie $q, 'TiedScalar', "bill"; 
tie $p, 'TiedScalar', "fred"; 

print test( $q, $p ) . "\n"; 

$q .= $p;
print "$q\n";