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

my $decimal_number = "254";
my $hexadecimal_number = sprintf("%x",$decimal_number);