Perl Web 服务器初级编程[5]

                            #! /usr/bin/perl 
                            #headertag.cgi
                            use warnings;
                            use strict;
                            #import invented 'link' and 'myheadertag' elements
                            use cgi qw(:standard link myheadertag);
                           
                            print header;
                            print start_html(
                                    -title=>'big document header',
                                    -author=>'cloudfordnick@yahoo.com.cn',
                                    -xbase=>'http://www.myserver.com',       #文档的基本url
                                    -target=>'my_panel',         #文档目标桢
                                    -meta=>{                         #指向元标记的名字/值对的一个哈希引用
                                                   description=>'how to define a cgi header with metatags',
                                                    keywords=>'meta,metadata,cgi,tags,html,perl',
                                                 },
                                     -style=>{
                                                 src=>'/css/mystylesheet.css'