Select Code to Download

use strict;
use warnings;
...
    my ($self) = @_;
    $self->{four} = $self->{three} + $self->{global2};
}

9