You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
786 B
Perl
19 lines
786 B
Perl
#!/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(); |