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

  __END__

  test-tk.pl syntax OK
  . (1):
  0 0x2ba31f0   NV f=00000002 undef(1)
  SV = IV(0x2ba31e0) at 0x2ba31f0
    REFCNT = 1
    FLAGS = ()
    IV = 0