#!/usr/bin/perl
print "Enter Hexadecimal Number: ";     # Ask for a number.
$answer = <STDIN>;                      # Input the number.
print hex($answer),"\n";                # Print out new number.
