#!./perl
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
use Tk;

$top = tkinit;
$l = Label::new($top, "-text" => "Hello world");
tkpack $l;
tkmainloop;