use strict;
use warnings;
use vars '$foo';

somesub();
print "\$foo is $foo\n";

sub somesub
{
    local $foo = "Ovid";
    anothersub();
}

sub anothersub
{
    print "\$foo is $foo\n";
}