my $f = $mw->Frame->pack;
  my $l = $f->Label(-text => 'foo')->pack;

  $f->destroy;

  print "Label-Widget ", Tk::Exists($l) ? "existert noch!\n" : "existert nicht mehr!\n";