bomb.pl

#!/usr/bin/perl -w

use strict;

my $max = 5;

printf "Time before explosion : %d second%s\n", $max+1, $max&&"s"||"" and sleep 1 while ($max--);

print "BOOM !";