package Foo;
    my $Bar = 0;