use strict;
use warnings;

package noname;

require Exporter;
our @ISA = ('Exporter');

our @EXPORT = qw($globalVariable UseVariable);

my $globalVariable = 'Default value';


sub UseVariable {
    print $globalVariable;
}

1;

package main;

noname::UseVariable ();