perl -Mfeature=say -de 0