print "ASM\n";

greet('Ingy');
greet(42);

use Inline ASM => <<'END', PROTO => { greet => 'void(char*)'};

.data
gstr:   .string "Hello %s!\n"

.text
.globl  greet

greet:  movl 4(%esp),%eax
       pushl %eax
       pushl $gstr
       call printf
       leave
       ret
END