C:\_32\c>type double.pl
use Win32::API;
use warnings;

$function = Win32::API->new('double', 'my_double', 'N', 'D');
$ret = $function->Call(123);
print $ret, "\n";
C:\_32\c>