c:\@Work\Perl\monks>perl -wMstrict -le
"use constant N_MAX => 10;
 ;;
 my $nCond;
 ;;
 CONDITION:
 for ($nCond = 1;  $nCond <= N_MAX;  ++$nCond) {
   print $nCond;
   last CONDITION if $nCond >= 3;
   }
 ;;
 print qq{only made it to condition $nCond} if $nCond < N_MAX;
"
1
2
3
only made it to condition 3