Help for this page

Select Code to Download


  1. or download this
    perl -le 'print shift' foo
  2. or download this
    perl -e '$x = shift; while (<>) { print "$x: $_" }' $2 $1
  3. or download this
    perl -nle 'BEGIN { $x = shift } print "$x: $_"' $2 $1