sub doSomethingSpecial {
    my ($self) = @_;
    ...
  }