#! perl -slw
use strict; use Config;
use Inline C => Config => BUILD_NOISY => 1, CCFLAGS => $Config{ccflags}." -DDEBUG=1";
use Inline C => <<'END_C',  NAME => 'ICexample', CLEAN_AFTER_BUILD =>0;

int add( int a, int b ) {
    int result;
    result = a + b;
    return result;
}
END_C

my $a = 12345;
my $b = 23456;
my $c = add( $a, $b );

print $c;