#!/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";
}