#!/usr/bin/perl

use strict;
use warnings;


my $answer = "argument1=one";

{
    package HTTPTest;
    use base qw/HTTP::Server::Simple::CGI/;

    use Data::Dumper;

    sub handle_request{
        my $self = shift;
        my $cgi  = shift;

        print "HTTP/1.0 200 OK\r\n";
        print $cgi->header, $answer;
    }

    sub setup {
#        warn Dumper @_;
    }
}

my $server = HTTPTest->new(3024)->background();

sleep 0 * 60;

my $cnt = kill 9, $server;

