#!/usr/bin/perl

package Server;

use strict;
use Coro;
use base 'Net::Server::Coro';

__PACKAGE__->new->run;

sub process_request {
  print "content-type: text/html\n\n";
  print "Hello!";
  cede;
}