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

use FFI::Platypus;
my $ffi = FFI::Platypus->new;
$ffi->lib(undef);
$ffi->attach(puts => ['string'] => 'int');
$ffi->attach(atan => ['double'] => 'double');

puts(4*atan(1));