inlinec.perl

#!/usr/bin/perl
use Inline C => Config => LIBS => '-lm';
use Inline C;
use strict; 
use warnings;

my $a = 81;
my $c = root($a);

print $c,"\n";
__END__
__C__
#include <math.h>
int root(double x)
{
    return sqrt(x);
}