### Pack s the current field into a comma delimited record 
### and returns it 

sub pack {   
   my ( $self ) = @_; 
   
   my $record = join(':', $self->{name} , $self->{price}, $self->{description}); 
   
   return $record; 
   
}