sub new {
  my $class = shift;
  my $self = ...;
  bless $self, $class; # returns $self
}