# MouseRace/Random.pm - a random mouse solver package MouseRace::Random; sub solve { my ( $self, $current, $choices ) = @_; @choices = grep { !/backward/ } keys %{ $choices->{relative} }; return $choices[ rand @choices ] || "backward"; } 1;