$ perl -E 'use Tk; say MainWindow->new->Listbox->cget("-font")'
Tk::Font=SCALAR(0x7f972e1bbd80)