#!/usr/bin/perl

BEGIN {
    $|  = 1;
    $^W = 1;
}

use strict;
use warnings;
use Tk;
use Tk::X11Font;
use Tk::XFontSelect;


my $font = "-adobe-helvetica-bold-r-normal--12-120-75-75-p-70-iso8859-1";

my $mw = MainWindow->new;
$mw->geometry('100x150');

my $fontdialog = $mw->XFontSelect;
$fontdialog->Show;

my $label = $mw->Label(
    -bg   => 'white',
    -text => "Help!",
    -font => \$font,
)->pack;
                       
MainLoop;