#!/usr/bin/perl -w

use strict;

my $max = 4;

for my $msg (0..$max) {
    printf "Time before explosion : %s secs\n", $max - $msg + 1;
    sleep 1;
}

print "BOOM !";