Select Code to Download

package Robo::Arm;
...
 my $robo = new Robo;
 $robo -> pick ( "Apple" ) ;
 $robo -> walk ;

package Robo::Arm;
sub new { bless {  } , shift } 
...
 $robo -> walk ;
 $robo -> pick ( "Apple" ) ;