#!C:/perl/bin/perl.exe -w

#!/usr/bin/perl -w
use strict;
use Inline C => <<END_OF_C;
int add(int x, int y) {
return x+y;
}
END_OF_C
print add(3, 4), "\n";