#1 degree in rads is pi divided by 180 = .01745 
$mw->bind('<Left>',sub{ &rotate(.01745) });
$mw->bind('<Right>',sub{ &rotate(-.01745) });
$mw->bind('<Up>',sub{ &power(10) });
$mw->bind('<Down>',sub{ &power(-10) });
$mw->bind('<space>', sub{ &fire}  );
[download]

#1 degree in rads is pi divided by 180 = .01745 
my ($kleft, $kright, $kup, $kdown);
$mw->bind('<Left>',sub{ $kleft ||= $mw->repeat(50, sub { &rotate(.0174
+5) }) });
$mw->bind('<Right>',sub{ $kright ||= $mw->repeat(50, sub { &rotate(-.0
+1745) }) });
$mw->bind('<KeyRelease-Left>',sub{ $kleft->cancel; undef $kleft });
$mw->bind('<KeyRelease-Right>',sub{ $kright->cancel; undef $kright });
$mw->bind('<Up>',sub{ $kup ||= $mw->repeat(50, sub { &power(10) }) });
$mw->bind('<KeyRelease-Up>',sub{ $kup->cancel; undef $kup });
$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}  );
[download]

------------
:Wq
Not an editor command: Wq
[download]