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

##</code><code>##

sub (;*) { ... }