Select Code to Download

package Foo;

...

print $var, "\n";  # Prints "Hello"
func();            # Error: Undefined subroutine &Bar::func called

{
    package Foo;
...
package Bar {
    ...
}

package Foo {
    our $var = "Hello";
...
    print $var, "\n";
    func();
}