eval {
    require 'sys/ioctl.ph';
1 } or do {
    $Tcl::pTk::_FE_unavailable = $@||'unknown error';
};