Select Code to Download

package S;

...

our $x = 1;
1;

use strict;
use warnings;
...
print $x;
print "\n";