programming-examples/perl/SystemFunction/The sleep command puts your process to sleep for a number of seconds.pl

#!/usr/bin/perl -w

use strict;

my @count = (1..5);

foreach (reverse(@count)) {
    print "$_...\n";
    sleep 1;
}

print "BLAST OFF!\n";