RosettaCodeData/Task/Call-a-function-in-a-shared-library/Perl/call-a-function-in-a-shared-library-1.pl

use Inline
    C => "DATA",
    ENABLE => "AUTOWRAP",
    LIBS => "-lm";

print 4*atan(1) . "\n";

__DATA__
__C__
double atan(double x);