#! perl -slw
use strict;
use Inline 'FORCE';
use Inline C => 'DATA', NAME => 'IC_junk1', CLEAN_AFTER_BUILD => 0;

test( 'fred' );
test2( 'fred' );

__DATA__
__C__
//#include <stdio.h>

void test ( char* text ) {
    printf( "Got:'%s'\n", text );
    printf( "%x\n", stderr );
}

void test2 ( char* text ) {
    char buf[ 255 ];
    sprintf( buf, "%s", text );
    fputs( stderr, buf );
}