#!/usr/bin/perl -w

use strict;
use POSIX qw/strftime/;

strftime "%H:%M:%S", localtime;
my @sleepvals = qw /1 2 3 4 5 6 7 8/;

print strftime "%H:%M:%S", localtime;
print "\n";
foreach my $sleepval (@sleepvals) {
sleep($sleepval);
print strftime "%H:%M:%S", localtime;
print "\n";
}

##</code><code>##

01:03:39
01:03:40
01:03:42
01:03:45
01:03:49
01:03:54
01:04:00
01:04:07
01:04:15

##</code><code>##

01:03:39
01:03:40
01:03:42
01:03:45
01:03:48
01:03:51
01:04:54
01:04:57