$n=15;
while($n>0)
{
  print "$n,";
  $n--;
  sleep(1);
}


##</code><code>##

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