use strict;
use warnings;

package Module;

{
   package Obj;
   sub new     { print "Creating\n"; bless({}, shift) }
   sub DESTROY { print "Destroying\n"; }
}

our $o;

BEGIN { $o = Obj->new(); }
for;

1;