use Tk;
my $m=new MainWindow;
my $k=undef;
$m->repeat(20=>sub {
  if($k)
  {
  $k->destroy;
  $k=undef
  }else{
  $k=new MainWindow;
  }});
MainLoop