use Tk;

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