or download this
#1 degree in rads is pi divided by 180 = .01745
my ($kleft, $kright, $kup, $kdown);
...
$mw->bind('<Down>',sub{ $kdown ||= $mw->repeat(50, sub { &power(-10) }
+) });
$mw->bind('<KeyRelease-Down>',sub{ $kdown->cancel; undef $kdown });
$mw->bind('<space>', sub{ &fire} );