package MyPerl; sub Main_Fn { Second_Pak::ProcessData(); } 1; #### package MyPerl; sub Main_Fn { package Second_Pak; ProcessData(); } 1;