Mega Code Archive

 

Categories / Perl / System Functions

 

Putting Sleep into foreach loop

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