#! /usr/bin/perl -w
#
# cgiHelloJapanese.cgi -- CGI の こんにちは世界だ（日本語化）（難あり）
#
# sample file name: cgiHelloJapanese.cgi

use CGI;                             # load CGI routines
$q = new CGI;                        # create new CGI object
print $q->header,                    # create the HTTP header
     $q->start_html('こんにちは世界だ'), # start the HTML
     $q->h1('こんにちは世界だ'),    # level 1 header
     $q->end_html;                  # end the HTML