#!/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();