#  Remove "BEGIN" and get no core dump.
BEGIN
{
  use Tk;
  our $MW = MainWindow->new();
  # other method calls.
}
our $MW;

# more changes to the window.

#  Being here does not avoid core dump.
$MW->destroy();