Select Code to Download

BEGIN {
  package main;
...
  print "OK";
  return [200, ["Content-Type"=>"text/html" ],[Mypackage::test2()]];
};

package Mypackage;

...
  ::test();
}
1;