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