#!/usr/bin/perl
$a = 2720;
while ($a > 0)  {
   print ".\n";
   sleep 60;
   $a--;
}