#! perl -slw
use strict;
use Win32;

my $dll = Win32::LoadLibrary(
    'test'
) or die $^E;

my $proc = Win32::GetProcAddress(
    $dll, 'testint'
) or die $^E;

print unpack 'V', unpack 'P4', pack 'L!', $proc;
__END__
C:\test>\perl32\bin\perl.exe 773754.pl
12345