BEGIN {
  package main;
  sub test{
    return scalar localtime;
  }
}

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

##</code><code>##

package Mypackage;

sub test2 {
  ::test();
}
1;