The sleep command puts your process to sleep for a number of seconds
#!/usr/bin/perl -w use strict; my @count = (1..5); foreach (reverse(@count)) { print "$_...\n"; sleep 1; } print "BLAST OFF!\n";