Select Code to Download

sub new {
  my $class = shift;
...
  my $object = $class->initialized_object(@_);
  return bless $object => $class;
  }