local($SIG{ALRM}) = $timeout ? sub { undef $fh; }
                               : $SIG{ALRM} || 'DEFAULT';