perl -MTk -MTk::Font -MData::Dumper -e 'warn Dumper tkinit->Label(-font => "helvetica 10 bold italic")->cget(-font)->actual'