package Foo; use Bar; sub new { return bless {}, shift; } 1;