#!/usr/bin/perl
use Tk;
$mw = tkinit;
$mw->bind("<Return>" => sub { warn "Old binding" });
$mw->bind("anotherbindtag", "<Return>" => sub { warn "New binding" });
$mw->bindtags(["anotherbindtag", $mw->bindtags]);
MainLoop;
__END__