use strict;
use warnings;
our $stuff .= 0;

BEGIN { $main::stuff = 1; }
print "$stuff\n";
_ _ END _ _
10