package FTest; sub new { return bless {}, shift; } sub foo { return 1; } 1;