use Win32::API qw( CreateIoCompletionPort N kernel32 N N N N );
use Win32::API qw( ... );

# ...
my $hIOCP= CreateIoCompletionPort( $hSocket, 0, 0, 0 );
# ...