DB<1> use charnames qw(greek)

 DB<2> print "\N{alpha}"
 Unknown charname 'alpha' at (eval 8)[/usr/share/perl/5.18/perl5db.pl:732] line 2, within string

 DB<3> print "\N{U+03B1}"
 Wide character in print at (eval 9)[/usr/share/perl/5.18/perl5db.pl:732] line 2.
 &#945;
  
 DB<4> print "\N{greek:alpha}"
 Wide character in print at (eval 10)[/usr/share/perl/5.18/perl5db.pl:732] line 2.
 &#945;