Select Code to Download

  $ball = new Ball:Soccer;  # Creates a soccer ball. 
  kick $ball;               # Ball::Soccer defines sub kick {...}
                            # I.E. this reads $ball->kick;

$ball = new Ball::Soccer;
$john = new Person;
give $john $ball;