package MyWebServer;

use strict;
use warnings;

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

sub handle_request {
    exit;
}

1;

##</code><code>##

use strict;
use warnings;

use MyWebServer;

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

print STDERR $pid, "\n";

open( my $fh, '>', 'pid.txt' ) || die;
print $fh $pid;
close $fh;

##</code><code>##

package MyWebServer;

use strict;
use warnings;

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

sub handle_request {
    open( my $fh, '<', 'pid.txt' ) || die;
    my $pid = <$fh>;
    close $fh;
    print STDERR $pid, "\n";
    kill 9, $pid;
}

1;