$VAR1 = bless( do{\(my $o = '{MS Sans Serif} 8')}, 'Tk::Font' );