or download this
DB<1> use charnames qw(greek)
...
Use of uninitialized value $txt in pattern match (m//) at /usr/opt/per
+l5/lib/5.20.1/_charnames.pm line 459.
[...]
Unknown charname 'greek:alpha' at (eval 11)[/usr/opt/perl5/lib/5.20.1/
+perl5db.pl:732] line 2, within string