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

  $sReturn = $sFuncRscIoCheck->Call($sConnectionHandle,
                    $sSessionHandle,
                    $sCheckAll,
                    $sReplyBuffer,
                    $sReplySize);