#FileOne.pl
package ProgramSpread;
BEGIN{}
sub subroutine1{
    print "Hello from the sub 1 in ", __PACKAGE__, "\n";
    }
return 1;
END{}

##</code><code>##

#FileTwo.pl
package ProgramSpread;  #The same package above
BEGIN{}
sub subroutine2{
            print "Hello from the sub 2 in ",__PACKAGE__,"\n";
            }
return 1;
END{}

##</code><code>##

#using the package
require "FileOne.pl";   #File names containing the package
require "FileTwo.pl";

ProgramSpread::subroutine1();
ProgramSpread::subroutine2();

##</code><code>##