perl -le 'print shift' foo