Select Code to Download

use strict;
use Fruit;
...
print "\nAPPLE = $apple->{Value}";
$apple->increase;
print "\nAPPLE = $apple->{Value}";

use strict;
package Fruit::Apple;
...
  $self->{Value}++;
}
return 1;