Untitled Document

#!/usr/bin/perl use CGI; my $q = new CGI; print $q -> header, $q -> start_html( -base => { 'href' => '$url' }), $q -> p( 'blah, blah' ), $q -> end_html; ##

##




      

Untitled Document




blah, blah




##

##

#!/usr/bin/perl

use strict;
use warnings;

use CGI;
my $q = new CGI;
my $url = 'docroot/';

print
  $q -> header,
  $q -> start_html( 
    -title => 'Adding base to header',
    -base  => 'true',
    -xbase => $url,
  ),
  $q -> p('blah, blah'),
  $q -> end_html;