#!/usr/bin/env perl 
use strict;
use warnings;

printf 'dec(%d) hex(%x)', 65, 0x41;
print "\n";

printf 'dec(%d) hex(%x)', "65", eval "0x41";
print "\n";