BEGIN {
sub test{

return "from test";

}

}

use Mypackage;

sub {
  return [ 200, [ "Content-Type" => "text/html" ], [ test() ] ];
};

##</code><code>##

package Mypackage;

::test();