use strict;
use warnings;

my $dec = 1211;

print "Hexadecimal number: ", uc(sprintf("%08x\n", $dec)), "\n";