Select Code to Download

package S;

...
use warnings;

our $x = 1;

use strict;
use warnings;
...

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