Select Code to Download

sub method {
    my $self= shift(@_);
...
    $self->{B}[$i]= shift(@_)   if  @_;
    return $old;
}

sub method {
    my $self= shift(@_);
...
      if  @_;
    return $old;
}

{
    my $usage;
...
        return $old;
    }
}