1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl -w

$poos = 20;
$saos = 1;

while ($poos ne $saos)
{
saos++;
print $saos;
}

exit;