#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Tk;

my $w = 'MainWindow'->new;
my $t = $w->Label(-text => 'Sample', -font => ['Arial', 20, 'bold', 'underline'])->pack;
say ${ $t->cget('-font') };
MainLoop();

##</code><code>##

#!/usr/bin/python3
from tkinter import Tk, Label

w = Tk()
t = Label(text="Sample",font=['Arial', 20, 'bold', 'underline'])
t.pack()
print(t.cget('font'))
w.mainloop()

##</code><code>##

Arial 20 bold underline