Ditto the suggestion on wrapping in-file packages in their own blocks, and you also want to avoid the "indirect object" method call form (i.e. things like my $obj = new Foo; see The Problems with Indirect Object Notation for why).