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