BEGIN {
    require Tk;
    import Tk;
}
$top = tkinit;
$l = Listbox::new($top);
$s = Scrollbar::new($top, "-slave" => $l, "-method" => "yview");
$l->configure("-yscrollslave" => $s, "-yscrollmethod" => "set");
foreach ("Foo01" .. "Foo20") {
    $l->insert("end", $_);
}
tkpack($s, $l,
        "-side"   => "left",
        "-fill"   => "y",
        "-expand" => "y");
tkmainloop;