$nickname = $config{MainWindow}->Label(
        -text => $user,
        -background => 'white',
        -font => $config{Font}
);

'{Arial} 8 {underline}'

#!/Perl/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Font;

my $mw = Tk::MainWindow->new(-width=>640,-height=>480,);

my $l = $mw->Label(
    -text => 'User',
    -bg   => 'white',
    -fg   => 'red',
    -font => $mw->Font(
        -family => 'Verdana',
        -size   => 20,
        -weight => 'bold',
#        -slant => ??, # hä?
        -underline => 1,
        -overstrike => 1,
    ),
)->pack();

MainLoop;

perl -MTk -MTk::Font -MData::Dumper -e 'warn Dumper tkinit->Label(-font => "helvetica 10 bold italic")->cget(-font)->actual'

$VAR1 = '-family';
$VAR2 = 'helvetica';
$VAR3 = '-size';
$VAR4 = 10;
$VAR5 = '-weight';
$VAR6 = 'bold';
$VAR7 = '-slant';
$VAR8 = 'italic';
$VAR9 = '-underline';
$VAR10 = 0;
$VAR11 = '-overstrike';
$VAR12 = 0;