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

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