package MyPackage;

  use strict;
  use Class::Flyweight;

  my $flyweight = Class::Flyweight->new();

  sub new {
    return $flyweight->instantiate(bless {}, shift);
  }

  sub get_name {
    my $self = $flyweight->access(shift);
    return $self->{name};
  }