package Love;

sub desire {
  my $Life = shift;
  return bless
    my $silence = sub {
      print "My only love - ",
      shift, "!\n"
    }, $Life
}

$me = Love->desire, $me->('Reni')
[download]