perl -e "print qq/$_\n/ for grep( ! /up to date/, split( /\n/, `ppm upgrade` ) )" > update.txt