perl -MCarp -e "carp ('hello', 'world', qq(\n))";