sub new
{
    my $class = shift;
    my $self = {};          # self is a hashref.
    bless $self, $class;
....
}