use strict;
{
package Interesting;

  my $_name = '';
  
  sub new {
    my $proto = shift();
    my $class = ref($proto) || $proto;
    my $this = bless({},$class);
    return $this;
  }
  
  sub myNameIs{
    my ($this,$name) = @_;
    die("Don't tell me that I don't have a name.") unless(defined($name));
    
    $_name = $name;
  }
  
  sub whoAmI{
    return($_name);
  }
}


my $one = new Interesting();
$one->myNameIs('What');

my $two = new Interesting();
$two->myNameIs('Who');

my $three = new Interesting();
$three->myNameIs('tukatukatuka SlimShady');

print "My name is : " . $one->whoAmI() . "\n";
print "My name is : " . $two->whoAmI() . "\n";
print "My name is : " . $three->whoAmI() . "\n";