$ perl -E 'say prototype(\*CORE::open)'
*;$@