programming-examples/perl/SystemFunction/Putting Sleep into foreach loop.pl

#!/usr/bin/perl -w

use strict;

foreach (1..20) {
    print ".";
    sleep 1;
} 
print "\n";