perl -MWin32::WinError -le"print for $INC{'Win32/WinError.pm'}, $Win32::WinError::VERSION"

##</code><code>##


#if(  eval { require Win32::WinError }  ) {
#    $_NoMoreItems= Win32::WinError::constant("ERROR_NO_MORE_ITEMS",0);
#    $_FileNotFound= Win32::WinError::constant("ERROR_FILE_NOT_FOUND",0);
#    $_TooSmall= Win32::WinError::constant("ERROR_INSUFFICIENT_BUFFER",0);
#    $_MoreData= Win32::WinError::constant("ERROR_MORE_DATA",0);
#} else {
    $_NoMoreItems= "^No more data";
    $_FileNotFound= "cannot find the file";
    $_TooSmall= " data area passed to ";
    $_MoreData= "^more data is avail";
#}