use Tk;
 use Tk::DialogBox;
 use Tk::LabEntry;
 use Tk::Balloon;
 use Tk::LabFrame;
 use Tk::Scale;
 use warnings;
 use feature ':5.12';
 
 
 use review2;         
 our $MW = MainWindow->new(-title => 'Title MW');
 $MW->geometry("+120+50");



 our $FW = $MW->Frame->pack;
 our $F2 = $FW->LabFrame( -label=> ' This Frame', -relief => 'groove')->pack( -side => 'left');
 our $RC = $F2->Button(-text => 'Review',        -command => sub{
                  RC::review($MW);
                  })->pack(-side => 'left');
  

 MainLoop;