Help for this page

Select Code to Download

Select or download this

$n=15;
while($n>0)
{
...
  $n--;
  sleep(1);
}

Select or download this

C:\Pradeep>perl test.pl
15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,
C:\Pradeep>