Select Code to Download

     ntdll.dll!_KiFastSystemCallRet@0()     
     ntdll.dll!_NtReadFile@36()  + 0xc    
...
     perl.exe!main(int argc=0x00000002, char * * argv=0x00283e08, char
+ * * env=0x00282c88)  Line 23 + 0x12    C
     perl.exe!mainCRTStartup()  Line 398 + 0xe    C
     kernel32.dll!_BaseProcessStart@4()  + 0x23

sub preview_call {
    my $buffer;
...
        return 0;
    }
}

use Win32API::File;
use Win32;
...
if($TotalBytesAvail) {
    #can safely read
}