>perl -E"say prototype('CORE::close');" ;*