use strict;
use warnings;
our $stuff = 0;
BEGIN { $stuff = 1; }
print "$stuff\n";