#!/usr/bin/perl
use strict;
use warnings;
#use charnames qw(:full);

my $name;
my $code;
my chr($code);
#pagina 16

use charnames qw(:full);
$name = "Music Sharp Sign";
$code = charnames::vianame($name);
printf "%s is character U+%04X (%s)\n",
    $name, $code, chr($code);