perl -e'print[]+0'