perl while

#!/usr/bin/perl

$counter=0;

while ($counter <= 10 ) {

print "$counter..\n";

$counter++;
}

Output

[root@localhost 001]# perl while.plx
0..
1..
2..
3..
4..
5..
6..
7..
8..
9..
10..