package Lala;
use strict;
our $name = "";

sub newlala($)
{
    my $self = {};
    bless $self;
    return $self;
}

sub setname($)
{
  my $self = shift;
  $name = shift;
}

sub getname()
{
  return $name;
}

1;

##</code><code>##

  my $ref = Lala->newlala();
  $ref->setname("Moufa");
  my $name = $ref->getname();
  print "Got name(ref): $name\n";
  my $ref1 = Lala->newlala();
  $ref1->setname("Troufa");
  $name = $ref1->getname();
  print "Got name(ref1): $name\n";
  my $ref2 = Lala->newlala();
  $ref2->$name="TRalala";
  $name = $ref2->getname();
  print "Got name(ref2): $name\n";

##</code><code>##

  my $ref2 = Lala->newlala();
  $ref2->$name="TRalala";