{ 
  local $| = 1;

  for ( 1 .. 3 ) {
    # nach jedem Punkt sollte eine Sekunde vergehen
    print ".";
    sleep 1;
  }

  print "\n";
}