#! /usr/bin/perl -w # # cgiHelloHeaderFixed.cgi -- CGI の Hello World（ タグを直してみた） # # sample file name: cgiHelloHeaderFixed.cgi use CGI; # load CGI routines $q = new CGI; # create new CGI object print $q->header(-charset=>'EUC-JP'), # create the HTTP header $q->start_html( -title =>'こんにちは世界だ', -lang =>'ja-JP', -charset => 'EUC-JP'), $q->h1('こんにちは世界だ'), # level 1 header $q->end_html; # end the HTML