while ($STPU eq 'good')  {

##</code><code>##

my $count = 0;
while ($STPU eq 'good' and $count++ < 10 ) {
...
}