while ($STPU eq 'good')  {