### my-perl-script.pl
use strict;
use warnings;
use Bar;

use subs qw(foo);
foo;


sub foo {
    print "Foo, from the main package.\n";
}