Select Code to Download

sub new {
  my ($class, $args) = @_;
...
  my $attr_2 = 2;
  return ($attr_1, $attr_2);
}

sub new {
  my ($class, $args) = @_;
...
  $self->{attr_1} = $attr_1;
  $self->{attr_2} = $attr_2;
}