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

$top = tkinit;
$f = Toplevel::new($top);
foreach ("one", "two", "three") {
    tkpack Label::new($f, "-text" => $_);
}
wm("withdraw", $top);
tkmainloop;