>perl -le"print defined(prototype('CORE::system'))?1:0"
0