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