perl -e 'open(F,"man ssh|")||die;print while();'