#!/usr/bin/perl -w
use strict;
use Inline 'C';

my $v;
set_both($v, "I'm a string too!", 123);
print $v+0, " $v\n";

__END__
__C__
void set_both(SV* var, char* str, int i)
{
 sv_setpv(var, str);
 sv_setiv(var, i);
}