my $code_font = $mw->fontCreate('code', -family => 'courier', -size => 14);