use Tk;
$top = new MainWindow;
$top->Listbox->pack(-side => "left") for 1..3;
$top->Label(-text => "Hello1", -bg => "red", -fg => "white"
       )->place(-relx => 0.5, -rely => 0.5, -anchor => "c");
MainLoop;