Untitled Document

#!/usr/bin/perl -w use strict; use CGI qw/:all/; print start_html,p("Hello world"),end_html; ##

##




Untitled Document



Hello world




##

##

#!/usr/bin/perl -w 
use strict;
use CGI qw/:all/;

open FOUT,"> my_html_page.html" or die $!;
print FOUT start_html,p("Hello world"),end_html;

##

##

#!/usr/bin/perl -w 
use strict;
use CGI qw/:all/;

print start_html,p({ style => "color: red;"},"Hello world"),end_html;

##

##

print table({width=>'80%',tr(td({width=>'30%',"thing1"),
                             td({width=>'60%',"thing2"),
                             td({width=>'10%',"a really long thing")
            ));