#!/usr/bin/env perl use utf8; ############################################################################### # This program prints a hexadecimal countdown. # # Copyright © 2020 Richard Lesh. All rights reserved. ############################################################################### use strict; use warnings; MAIN: { print 0x10, "\n"; print 0xf, "\n"; print 0xe, "\n"; print 0xd, "\n"; print 0xc, "\n"; print 0xb, "\n"; print 0xa, "\n"; print 0x9, "\n"; print 0x8, "\n"; print 0x7, "\n"; print 0x6, "\n"; print 0x5, "\n"; print 0x4, "\n"; print 0x3, "\n"; print 0x2, "\n"; print 0x1, "\n"; print "Blastoff!\n"; }