my $sFuncRscIoCheck = new Win32::API('Rscw32', 'USHORT RscIoCheck(ULONG ulConnectionHandle,ULONG ulSessionHandle,SHORT *pnIoHandle,VOID *pvReplyBuffer,USHORT *puReplySize)');