$mw->bind('<Right-KeyPress-Up>', sub{$c->move($rect, 5, -5);});