|
#!/usr/bin/perl
use warnings;
use CGI qw(Link myheadertag);
use strict;
my $cgi=new CGI;
print $cgi->header();
print $cgi->start_html(-title => 'A HTML document header',
-author=> 's@h.org',
-xbase => 'http://h.net',
-target => '_map_panel',
-meta => {keywords => 'CGI header HTML',
description => 'Header',
message => 'Hello World!'},
-style => {src => '/my.css'},
-head => [Link({-rel=>'origin',
-href=>'http://h.org/'}),
myheadertag({-myattr=>'myvalue'}),]
);
print $cgi->end_html();
|