require "somefile.pl";

use newform;

&someFile();

&newform::func1();
[download]

sub someFile {
        print "LAMP";
}

sub someFile1 {
        print "J2EE";
}
1;
[download]

package newform;

        require "somefile.pl";

        sub func1 {
                &someFile1();
                print "Inside func1";

        }

1;
[download]

Undefined subroutine &main::someFile called at s1.pl line 5.
[download]