c:\@Work\Perl\monks>perl -wMstrict -le
"my $done = 'got stuff to do';
 print qq{'$done'};
 ;;
 for my $i (1 .. 4) {
   print $i;
   if ($i == 2) {
     $done = 'finished';
     last;
     }
   }
 print qq{'$done'};
"
'got stuff to do'
1
2
'finished'