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

print "Please, enter the hex number: \n";

my $hex = <STDIN>;
print "$hex", "\n";

chomp ($hex);

print "You've entered hex: ", $hex, "\n";
print "The decimal equivalent is ", hex "$hex", "\n";