Help for this page

Select Code to Download

Select or download this

  sub myNameIs{
    my ($this,$name) = @_;
...
    my ($this ) = @_;
    return($this->{_name});
  }