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;