use Tk;
my $mw = new MainWindow;
my $lw = $mw->Label(-text=>'on')->pack;
my $tl = $mw->Toplevel;
MainLoop;