Select Code to Download

my @preferred_sans_families = (
    'Special Sans',
...
my $found_sans_family = first { $all_families{$_} } @preferred_sans_fa
+milies;

my $sans_font = $mw->fontCreate(... -family => $found_sans_family ...)
+;