perl -le 'for(1..10){print $_; last if $_ == 5}'
1
2
3
4
5