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