$perl -wle " print - -foo "
+foo