Select Code to Download

    $mw->Button(-text => 'Quit', -command => sub { print 'Bye!'; exit;
+ })->pack;

    $mw->bind('<KeyRelease-A>' => \&print_something);

#!/usr/bin/perl
use warnings;
...
  my ($canv, $x, $y) = @_;
  print "(x,y) = ", $canv->canvasx($x), ", ", $canv->canvasy($y), "\n"
+;
}

use Tk::WidgetDump;
use Tk::ObjScanner;
...

Tk::ObjScanner::scan_object($the_widget_or_window_to_inspect);