Mega Code Archive

 

Categories / Perl / CGI

 

Defines a title, author, base, and target for a document, plus a few metatags and a stylesheet

#!/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();