#file name One.pl

use Two;
package MyPerl;
sub Main_Fn
{
	Two::ProcessData();
}
1;

#file name Two.pm
package Two;
sub ProcessData
{

}
1;