Select Code to Download

package Robo;
use strict;
...
my $robo = Robo->new();
$robo->{Feet}->walk();
$robo->{Arm}->pick( "Apple" );

sub walk {
  my $self = shift;
...
  my ($self, $thing) = @_;
  return $self->{Arm}->pick( $thing );
}