Select Code to Download

#!/usr/bin/perl
use Tk;
...
                              warn "New binding" });
MainLoop;
__END__

#!/usr/bin/perl
use Tk;
...
$mw->bindtags(["anotherbindtag", $mw->bindtags]);
MainLoop;
__END__