package Man;

  # aggregation
    sub new {
        my $classname = shift;
        my $self = {
          thirst  => 0,
          COLABOT => Getraenkeautomat->new
        };
        return bless($self, $classname);
    }