use strict;
use warnings;

use MyWebServer;

my  $server = MyWebServer->new(8080);
our $pid    = $server->background();

##</code><code>##

package MyWebServer;

use strict;
use warnings;

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

sub handle_request {
    kill 9, $main::pid;
}

1;

##</code><code>##

use strict;
use warnings;

use MyWebServer;

my $server        = MyWebServer->new(8080);
$MyWebServer::pid = $server->background();

##</code><code>##

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;

##</code><code>##

use strict;
use warnings;

use Pid;
use MyWebServer;

my $server = MyWebServer->new(8080);
Pid->set($server->background());

##</code><code>##

package MyWebServer;

use strict;
use warnings;

use Pid;

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

sub handle_request {
    kill 9, Pid->get();
}

1;

##</code><code>##

package Pid;

use strict;
use warnings;

my $pid;

sub get {
    my $package = shift;
     return $pid;
}

sub set {
    my $package = shift;
    $pid = shift;
}

1;