package MyModule;

use strict;
use warnings;
use 5.010;

use base 'Exporter';

our $var;

our @EXPORT = qw( my_sub $var );

sub my_sub {
  $var = 42;

  say "Set \$var to $var in my_sub";
}