#dll_test.pl################################################
use Win32::API;
my $recv = new Win32::API('mydll', '_recvData@8','PI','I');
if(not defined $recv)
{
    die "Can´t import API recvData: $!\n";
}
else
{    
    my $size = 8;   
    my $p_resultString = pack("A$size",);   #pack a ASCII String for pointer parameter in recv
    $recv->Call($p_resultString , $size);
    my $result = unpack("A$size", $p_resultString); #unpack ASCII String
}
############################################################