Select Code to Download

       if ($t::x<$left or $t::y<$top or
              $t::x>$right or $t::y>$bot) {
              &{$_->{callback}} if ($_->{callback});  #NEW
              $_->{sprite}->remove;

$mw->bind('<Key>', [ sub {
        my $curshot=0 if 0;       # NEW
...
                        sprite => $gun,
                        });
        }