perl -MTk -e " $a= tkinit; $a->destroy; warn $a; warn $a->destroy; "
MainWindow=HASH(0x2bcb488) at -e line 1.
destroy (1):
 0 0x226260 PVMG f=00080007 {}(1)(1)
SV = PVMG(0x1a6dccc) at 0x226260
  REFCNT = 1
  FLAGS = (ROK)
  IV = 0
  NV = 0
  RV = 0x2bcb488
  PV = 0x2bcb488 ""
  CUR = 0
  LEN = 0
Usage $widget->destroy(...) at -e line 1.