perl script running inline C running inline ASM

perl_inline_c_asm.pl

#!/usr/bin/env perl

use Inline 'C';

my $a = 10;
my $b = 15;

print "$a + $b = ", add_c_asm($a, $b), "\n";

__END__
__C__

int add_c_asm(int foo, int bar) {
    asm volatile ( "addl  %%ebx,%%eax"
                   :"=a"(foo)
                   :"a"(foo), "b"(bar)
    );
    return foo;
}