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

##</code><code>##

cat stuff | perl -ne '$x=shift; print "x=$x\n"; print "<>=$_"' - myarg myarg2 stuff

##</code><code>##

x=myarg
<>=foo
x=myarg2
<>=bar
x=
<>=foo
x=
<>=bar