sub new {
  my ($class, @args) = @_;
  my $self = bless {}, $class;
  # Do stuff with @args
  # ...
  # then return:
  $self;
}