>perl -e"print prototype('CORE::open')
*;$@