ps auxw | perl -l -e '@ps = map { chomp; [ split/\s\s+/ ]; } <STDIN>; shift @ps; print $_->[1],"\t",$_->[$#{$_}] foreach @ps;'