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