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