my $mw = new MainWindow;
 $mw->minsize(qw(600 700)); 
 $mw->maxsize(qw(600 700));
 
 my $emailLab = $mw -> Label(-text=>"Enter name:") -> pack();
  
MainLoop;