#! perl -slw
use strict;
#use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => '_test', CLEAN_AFTER_BUILD => 0;

int test( int i ) {
    return i;
}

END_C

print test( 123 );
__END__
C:\test>test
123