##
sub someFile {
print "LAMP";
}
sub someFile1 {
print "J2EE";
}
1;
####
package newform;
require "somefile.pl";
sub func1 {
&someFile1();
print "Inside func1";
}
1;
####
Undefined subroutine &main::someFile called at s1.pl line 5.