#!/usr/bin/env perl
use utf8;
use strict;
use warnings;

MAIN:
{
	for (my $i = 10; $i >= 1; --$i) {
		print $i, "\n";
	}
	print "Blastoff!\n";
}