package c_calc;
use Inline C;
1;
__DATA__
__C__
int test(int num){
    return num;
}

##</code><code>##

use warnings;
use strict;

use lib '.';
use c_calc;

my $num = c_calc::test(5);

print $num;