package Foo;

sub inscope {
    print "in Foo's scope\n"
}

1;

package main;

use strict;

sub Foo::outofscope {
    print "in main's scope\n"
}

Foo::inscope();
Foo::outofscope();