perl -e "print $ARGV[1];" ONE- TWO- ## prints TWO-