#!/usr/bin/perl use CGI qw(:cgi); sub Use_html { print"Content-type:text/html\n\n" ; print<<Begin_of_Html <HTML><HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html";charset="big5"> </HEAD> <BODY BGCOLOR=#f8f4e7 LINK=#0000ff VLINK=#436eee ALINK=#b22222> Begin_of_Html ;} sub End_html { print<<END_of_Html </BODY></HTML> END_of_Html ;} Use_html(); print("<P>\nHello, world.\n"); End_html();
單維彰 (01/04/11) ---