I think that Win32::API::Prototype makes it easier than the Win32::API.
ApiLink( 'Kernel32', q[
my $hIOCP = CreateIoCompletionPort( $hSocket, 0, 0, 0 );
Maybe a combination of that and your import function would simplify it further?
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail