use Inline C;
$answer = somefunc(20, 4);
print "$answer\n";   #ergibt 80
__END__
__C__
double somefunc(int a, int b) { /* Inline kennt die meisten grundlegenden C-Typen */
  double answer = a*b;
  return answer;
}