$ perl -E 'use Tk; say MainWindow->new->Listbox->cget("-background")'
#d9d9d9

##</code><code>##

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

##</code><code>##

$ perl -E 'use Tk; say ${ MainWindow->new->Listbox->cget("-font") }'
Helvetica -12 bold
$ perl -E 'use Tk; say MainWindow->new->Listbox->cget("-font")->$*'
Helvetica -12 bold

##</code><code>##

$ perl -E 'use Tk; say MainWindow->new->Text->cget("-font")->$*'
Courier -12