use warnings;
use strict;
print "Please input a hex no. to convert to dec. :";
chomp (my $value = <STDIN>);
print hex("$value"), "\n";