Putting Sleep into foreach loop
#!/usr/bin/perl -w use strict; foreach (1..20) { print "."; sleep 1; } print "\n";