package Parameters;
use strict;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(get_var);
my $var = "xpto";

sub get_var{
    return $var;
}

1;

##</code><code>##

use Parameters;

print get_var;