use Win32::API;
my $dec = Win32::API->new('mydll.dll', 'GetVersion', 'PN', 'L') or die $^E;
my $lpBuffer = " " x 64;
$return = $dec->Call($lpBuffer, 64);
print $lpBuffer;