Select Code to Download

  
#!/usr/bin/perl -w            
use Tk;
...
    my @coords_list = $c->coords($rect);

MainLoop;

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