#!/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__