$ perl -e 'use v5.10;for (1..10) {print "$_\n"; sleep(1);}'
1
2
3
4
5
6
7
8
9
10