web/server/h2o/libh2o/t/assets/doc_root/hello.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13

#! /usr/bin/env perl

use strict;
use warnings;
use CGI;

my $q = CGI->new;

print $q->header("text/plain; charset=utf-8");
print "Hello ", $q->param("name") || "unknown";

close STDOUT;
print STDERR "hello.cgi is shutting down\n";