use warnings;
use strict;
use C::DynaLib;
my $c_libary = new C::DynaLib("./modules/test.o")||die "Failed to load: $!\n";
my $c_subroutine = $c_libary->DeclareSub("test", "p");
print &{$c_subroutine}