Select Code to Download

#!/usr/bin/env -S perl
##!/usr/bin/env -S perl -d
...

exit(0);
__END__

my $fontName = $mw->Tkx::font_create( -family => $family,

my $fontName = Tkx::font_create('PerlboysNewFont', -family => $family,

say $fontName;
say "Named fonts: ${\Tkx::font_names()}";