Select Code to Download

sub new 
{
...
   my ( $self, $a ) = @_;
   $self->{ A } = $a;
}

sub copy
{
...
   bless $new, 'Stuff';
   return $new;
}