http 返回状态 模拟

{
   package MyWebServer;

   use HTTP::Server::Simple::CGI;
   use base qw(HTTP::Server::Simple::CGI);
   
  my %dispatch = (
    '/test' => \&resp_test,
    # ...

  );
 
 sub handle_request {
  my $self = shift;
  my $cgi = shift;
  my $status = $cgi->param('status');
  my $sleep = $cgi->param('sleep');
 
  my $path = $cgi->path_info();
  my $handler = $dispatch{$path};

  sleep( $sleep );
  if (ref($handler) eq "CODE") {
    print "HTTP/1.0 $status \r\n";
    print "Content-Type:text/xml; charset=utf8;\r\n\n";
    if( $status eq "200" ){
      print "<xml> <xml> 想想怎么错,也要错的有道理！！" ;
    }
  }
 }
 
 sub resp_test {

 }
   
}

my $pid = MyWebServer->new(18080)->background();
print "Use 'kill $pid' to stop server.\n";