perl -le" my $n; for( $n=0; $n <=10; $n++ ){ print $n; last if $n == 5 }; print '$n= ', $n;"
0
1
2
3
4
5
$n= 5