#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

my $label = $mw->Label(-text => 'test', 
                 -width => 100, 
                 -height => 30, 
                 -anchor => 'n')->pack();

MainLoop;