#!/usr/bin/perl
$countdown = 10;
while ($countdown != 0) {    # While $countdown doesn't equal 0
    print "$countdown...\n"; # Print time left.
    sleep 1;                 # Wait one second.
    --$countdown;            # Decrement $countdown.
}
print "BOOM!\n";
