package MyWebServer;

use strict;
use warnings;

our $pid;

use HTTP::Server::Simple::CGI;
use base qw(HTTP::Server::Simple::CGI);

sub handle_request {
    kill 9, $pid;
}

1;