$ perl -le'print defined(prototype("CORE::print")) || 0'
0