package X; use X::Child; my $object = X::Child->new(mode => BETA); my $object2 = X::Child->new(mode => PROD);