Select Code to Download

   my $self = shift;

   $self{theValue}

   $self -> {theValue}

package Test;

...
        $self -> {theValue} = $value; # note '->'
}