#!/usr/bin/perl

use warnings;
use strict;


#hex -> dec: function hex

print hex ('0x10000a0f'), "\n";

#dec -> hex: s/printf with %x

my $val = printf "0x" . "%x\n", 268438031;
print "VAL: $val\n";