#!/usr/bin/perl -w

use strict;

package HistoryObj;

sub new {
	my $class = shift;
	my $self = {
		color => 'blue',
		texture => 'rusty metal',
		taste => 'salt',
	};
	bless($self, $class);
	return $self;
}