#!/usr/bin/perl
# prov.pl
use strict;
use warnings;
use vars qw( $SousMaintenance );

require './inc.pl';

print $SousMaintenance,"\n";

##</code><code>##

$SousMaintenance = 'value one';
1;

##</code><code>##

# inc.pl
package myInc;
$SousMaintenance = 'value one';

##</code><code>##

print $myInc::SousMaintenance,"\n";