package S;

use strict;
use warnings;
use Exporter; #"require" works too, but use is more std.

our @ISA = qw(Exporter);
our @EXPORT = qw($x);

our $x = 999;
1;