Select Code to Download

sub new {
     my ($class) = @_;
...
  bless $self, $class;     # Two-argument version used to support inhe
+ritance
  return $self;
}

sub run_test{

...
}
}