font dialog widget for perl/Tk

 Tk::FontDialog Perl module implements a font dialog widget.
 .
 The dialog is displayed by calling the Show method. The returned value is
 either the selected font (if the dialog was closed with the Ok button) or
 undef (otherwise). The exact type of the return value is a Tk::Font
 object which can be used as values in Tk -font options.