Select Code to Download

package FruitID;
sub new {bless {}, shift}
...
...
package main;
my $testdata = FruitID->new->init("12 bananas");