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