eval { require 'sys/ioctl.ph' };
$Tcl::pTk::_FE_unavailable = $@;
...
if ($Tcl::pTk::_FE_unavailable) {
...

##</code><code>##

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