use feature ':5.10';
$| = 1;
use HTTP::Daemon;
use HTTP::Status;
 
my $d = HTTP::Daemon->new(LocalPort => 8080) || die;
print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
    while (my $r = $c->get_request) {
        if ($r->method eq 'GET') {
            say $r->uri->query;
            $c->send_status_line;
        }
        else {
            $c->send_error(RC_FORBIDDEN)
        }
    }
    $c->close;
    undef($c);
}