USHORT RscIoCheck
(ULONG ulConnectionHandle
,ULONG ulSessionHandle
,SHORT *pnIoHandle
,VOID *pvReplyBuffer
,USHORT *puReplySize
);

##</code><code>##

use Win32::API 0.40;

my $sFuncRscIoCheck = new Win32::API('Rscw32', 'RSCCHK', 'IIPPP', 'I');

##</code><code>##

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

##</code><code>##

my $sReturn = pack('S', 0);

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

$sReturn = unpack('S', $sReturn);