use Inline C;

$a = $ARGV[0];
$b = $ARGV[1];
die "Usage: perl compute_add.pl a b\n" unless $a && $b;
    
$c = add($a, $b);
print $c;

__END__
__C__
double add(double a, double b) {
	return a + b;
}
