#!/usr/bin/perl
use warnings;
use strict;
use Fruit;
my $fruit = Fruit->new ();
$fruit->read ("boxes.txt");