perl -we 'print x x x + x x x'
...
print() on unopened filehandle x at -e line 1.