#!/usr/bin/perl

use warnings;
use strict;

my $tstart = time();
my $t;
print "Please wait (five seconds).\n";
while(1) {
    $t = time() - $tstart;
    if ($t >= 5) {
        print "Five seconds reached.\n";
        last;
    }
}