package main;

my $yel = new Apple;
$yel->{color} ='yellow';