#!perl -l

{

    my $var = 7;
    *Foo::var = \$var;

    print $Foo::var;

    foo();

    print $var;

}

sub foo {
    # changes both $Foo::var and the lexical $var
    $Foo::var = 8;
}