package Foo;
use strict;
use warnings;
use 5.020;

my $cache = "foo";

sub foo {
    say "\$cache: ", $cache;
    say "\$Foo::cache: ", $Foo::cache;
}

1;

__END__