$ 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