Select Code to Download

use Win32::API qw( CreateIoCompletionPort N kernel32 N N N N );
use Win32::API qw( ... );
...
# ...
my $hIOCP= CreateIoCompletionPort( $hSocket, 0, 0, 0 );
# ...

sub Win32::API::import {
    my( $class, $sub, $ret, $lib, @args )= @_;
...
        $obj->Call( @_ );
    };
}