my $stuff1;
my $stuff2;
my $stuff3;
BEGIN {
   $stuff1 = 'stuff1 stuff';
   $stuff2 = 'stuff2 stuff';
   $stuff3 = 'stuff3 stuff';
}

my $stuff4;
INIT {
   $stuff4 = 'stuff4 stuff';
}

print "stuff 1: $stuff1\n";
print "stuff 2: $stuff2\n";
print "stuff 3: $stuff3\n";
print "stuff 4: $stuff4\n";