blob: 4401481bff2d90f0cbeddbd574ef730cd102f53c (
plain)
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";
|