use strict;
use Fruit;

my $apple = new Fruit::Apple;

print "\nAPPLE = $apple->{Value}";
$apple->increase;
print "\nAPPLE = $apple->{Value}";

##</code><code>##

use strict;
package Fruit::Apple;

sub new
{
  my $class = @_;
  my $self = { Value => 0 };
  bless $self, $class;
  return $self;
}

sub increase
{
  my $self = shift;
  $self->{Value}++;
}
return 1;