My voice is my passport. Verify me.

unicode_password.pl

#!/usr/bin/env perl

use 5.018;
use charnames ();

binmode(STDOUT, ":utf8");

my $upper_prefix = "CIRCLED LATIN CAPITAL LETTER";
my $lower_prefix = "CIRCLED LATIN SMALL LETTER";

my $password = "MyNameIsWernerBrandes"; # or whatever

say join "", map {; charnames::string_vianame($_) } 
            map {; /[A-Z]/ ? "$upper_prefix \U$_" : "$lower_prefix \U$_" } split //, $password;