use Tk;
use Tk::Font;

my $mw = MainWindow->new;
my $l = $mw->Label;

foreach (1 .. 10) { $l->Font }
print "Fonts: " . join(",", $l->fontNames) . "\n";