package A; sub new { print MyPath; } 1;