#!/usr/bin/perl

use 5.010;
my $global;

sub set_global {$global = shift}
sub get_global {$global}
sub say_global {say $global}

##</code><code>##

package Blabla;

our @ISA = qw[Exporter];
use Exporter();
our @EXPORT = qw[$global1 $global2 $global3];

##</code><code>##

use Blabla;