perl -wle 'print []+0'