Select Code to Download

use strict;
use warnings;
...
print $orange->Add (1)."\n";
print $apple->Add (5)."\n";
print $orange->Add (1)."\n";

1 apple
4 apples
1 orange
9 apples
2 oranges