Select Code to Download

sub new()
{
        my $self={};
...
        bless($self);
        return $self;
}

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

my $obj = main->new();