{
   package Module;

   sub f {
      my $value_ref = do { no strict 'refs'; \${caller().'::value'} };
      print $$value_ref, "\n";
   }
}

our $value = "Hello World";
Module::f();