Select Code to Download

sub new {
    my ($class, $foo) = @_;
    bless { foo => $foo } , $class;
}

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