Select Code to Download

require "somefile.pl";

...
&someFile();

&newform::func1();

sub someFile {
        print "LAMP";
...
        print "J2EE";
}
1;

package newform;

...
        }

1;

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