perl -le 'print shift' foo

##</code><code>##

perl -e '$x = shift; while (<>) { print "$x: $_" }' $2 $1

##</code><code>##

perl -nle 'BEGIN { $x = shift } print "$x: $_"' $2 $1