sub new {
   # As in Chmerrs reply
   return bless $self, $class;
}