pl@nereida:~/LEyapp/examples$ cat localwithlocal3.pl
#!/usr/local/bin/perl -w
use strict;

{
  package Tutu;

  my $_tutu = sub {
    my $self = shift;

    "Inside tutu. My class is ".ref($self)."\n"
  };

  sub plim {
    my $self = shift;

    print "plim can access _tutu as a private method:\n"
          .$self->$_tutu;
  }

  sub new {
    bless {}, $_[0];
  }
}

package main;

my $obj = Tutu->new();

$obj->plim();