-my %oslist = (
- win95 => [qw( arial ariuni verdana times courier )], # microsoft
- mac10 => [qw( lucida garamond )], # apple
- android => [qw( roboto noto )], # google
- oss => [qw( dvsans c2k unifont )],
-);
-my @ossel = qw( win95 mac10 oss android );
-my @fontlist = map { @{ $oslist{$_} } } @ossel;
-