my $times = 2;
for (;;) {
   code;
   last unless --$times;
   wait;
}