#some kind of cycle:
  {print "\a";
   sleep $timeout;
  }