($type eq 'IO') ? close *{$glob} : undef *{$glob}{$type};