#using frame widgets, general explanatory non-functional code


use Tk;
$main=MainWindow->new;
$frame=$main->Frame;
$frame->pack(pack options) or $frame->place(options);
$frame->Label()->pack();
MainLoop;