#!/usr/bin/perl -w
# 45UBsRN - dec (CoNVert hexadecimal string parameter to decimal)
#
# Most source code should be Free!
#   Code I have lawful authority over is && shall be!
# Copyright: (c) 2003, Pip Stuart.  All rights reserved.
# Copyleft :  I license this software under the GNU General Public 
#   License (version 2).  Please consult the Free Software Foundation 
#   (http://www.fsf.org) for important information about your freedom.
# Thank you.  TTFN.
#                                           -Pip@CPAN.Org

use strict;
use Math::BaseCnv qw(dec);

my $numb = shift;
if(!defined($numb) || $numb =~ /^-+[h\?]/i) {
  die("USAGE: `dec <HexadecimalNumberStringToConvertToDecimal>`\n");
}
print(dec($numb));
