perl -e 'print STDOUT x x x + x x x;'