Select Code to Download

 
use strict;
use warnings;
...
 } until($j<=0)
}
print "outside: $j\n";

outside: 42
inside: 5
...
inside: 2
inside: 1
outside: 666