use Module qw(:all);
package Module2;
...
cook();
...