sub foo
{
  my $name="FOO";
  bar("$name");
}

sub bar
{
  my $name="BAR";
  print "My name is $name"; #My name is BAR

  function_to_do_something_using_callers_lexical_view {
    print "Your name is $name"; #Your name is FOO
  }
}

foo();