Select Code to Download

    sub new {
        my $this = shift;
...

        bless $self, $class;
        return $self;

sub new {
  my $this = shift;
...
  bless $self, $class;
  return $self;
}