use Tk;
use strict;
use warnings;

my $mw = MainWindow->new;
$mw->Label(-text => 'Hello, world!')->pack;
$mw->Button(
            -text    => 'Quit',
            -command => sub { exit },
           )->pack;


my (@bindtags) = $mw->bindtags;
print "\$mw's bindtags:\n", join("\n", @bindtags), "\n";

print "\nCORRECTION: NOW THE bindDump():\n", $mw->bindDump();  # <-- UPDATE2

MainLoop;