$ perl -MWx -le " print for grep/font/i, keys %Wx::ListItem:: " SetFont GetFont