#!/usr/bin/perl
# 45UBvZt - hex (CoNVert decimal string parameter to hexadecimal) as part of the Math::BaseCnv package
use strict; use warnings; use Math::BaseCnv qw(hex);
my $numb = shift; die("USAGE: `hex <DecimalNumberStringToConvertToHexadecimal>`\n") if(!defined($numb) || $numb =~ /^-+[h\?]/i); print(hex($numb));