echo stuff | perl -ne '$x=shift; print "x=$x\n"' - myarg