package Foobar;

use strict;
use warnings;

our $some_global_var = 8;

sub some_sub {
    print "Hi from Foobar::some_sub().\n";
}

1;

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use lib '.';
use Foobar;

Foobar::some_sub();

print "The global var is $Foobar::some_global_var.\n";