#! perl -slw
use strict;
use Inline C => <<'__C__';
#include <stdio.h>

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

void test2 ( char* text ) {
    fprintf( stderr, "Got:'%s'\n", text );
}

__C__

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

__END__
C:\test>IC-junk1.pl
Got:'fred'
77c5acc0