package S;

use strict;
use warnings;

our $x = 1;

##</code><code>##

use strict;
use warnings;

use S;

print $S::x;
print "\n";