Select Code to Download

sub new {
  my $pkg = shift;
  my $self; { my %hash; $self = bless(\%hash, $pkg); }

sub new {
  my $pkg = shift;
  my $self = bless {}, $pkg;