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