#!/usr/bin/perl

use strict;
use warnings;
Some::Module->import qw(foo);  # instead of "use Some::Module qw(foo);"

my $var = "foo";

print foo(),"\n";

# --- inlined module ---
BEGIN {
package Some::Module;

use strict;
use warnings;
use Exporter "import";
our @EXPORT_OK = qw(foo);

my $var = "init-value";

sub foo {
    return $var;
}

} # end of BEGIN