Pure perl pipe viewer