use strict; foreach (1..10) { print '*'; sleep(1); }