# try.pl
use warnings;
use strict;

use Inline C => Config =>
    BUILD_NOISY => 1;

use Inline C =><<'EOC';

UINT hello() {
  UINT x = 17;
  return x;
}


EOC

$x = hello();
print $x; 

# On Windows:
# Outputs 17 if typemap is present,
# Otherwise outputs "Undefined subroutine &main::hello called at try.pl line 16."