use vars '$foo';
$foo = 'foo';
{
    my $foo = 'bar';
    print "'$foo'\n";
}