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