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

binmode STDOUT, ":utf8";

print chr(
    charnames::vianame(
        qq(MUSIC FLAT SIGN))
    ) . qq(\n);

print chr(
    charnames::vianame(
        qq(GREEK CAPITAL LETTER DELTA))
    ) . qq(\n);

__END__


##</code><code>##

my $flat = chr( charnames::vianame(qq(MUSIC FLAT SIGN)) );

print qq(b$flat);