perl -e "print prototype('CORE::chomp')"