Select Code to Download

perl -MTk -e " $a= tkinit; $a->destroy; warn $a; warn $a->destroy; "
MainWindow=HASH(0x2bcb488) at -e line 1.
destroy (1):
...
Usage $widget->destroy(...) at -e line 1.