perl -E 'say prototype(q{CORE::sprintf})'
$@