use Tk;
my $mw = MainWindow->new(-title => "Fonts");
my @fonts=  sort keys { map {$_, 1}  @{$mw->fontFamilies}}