#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 $buffer = "\x00" x $size;
    my $p_buffer = unpack('L', pack('P', $buffer));
    $recv->Call($p_buffer, $size);
}

############################################################