#!/usr/bin/perl -w
for (my $i = 10; $i > 0; $i--) {
    print " $i...\n";
    sleep(1);
}
print "\n\n\tWE HAVE LIFT-OFF!\n\n\n";