package Food;

sub new 
{   my $class = shift;
    my $self = bless {}, $class;
    $self->initialize;
    $self;
}

sub initialize {
    my $self = shift;
    $self->{_beverage} = "Pepsi";
    $self->{_entree} = "soup";
    $self->{_dessert} = "ice cream";
}

##</code><code>##

sub initialize {
    my $self = shift;
    $self->{_beverage} = shift;
    $self->{_entree} = shift;
    $self->{_dessert} = shift;
}

##</code><code>##

my $meal = new Food("tea", "sushi", "creme egg");