use strict;
use Fruit;

my $apple = new Fruit::Apple;

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