in reply to Base urls using Perl CGI

See updated code below. 

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

[download]

output: 

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html
    PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"
      lang="en-US" 
      xml:lang="en-US">
      
<head>
<title>Untitled Document</title>
<base href="http://localhost/answer.pl" />
</head>

<body>
<p>blah, blah</p>
</body>

</html>

[download]

Updated

Added output

Update 2

I should have used strict and warnings to catch the undeclared $url (and not put it in quotes).

Also the docs says:

The argument -xbase allows you to provide an HREF for the <base> tag different from the current location

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

[download]

In Section Seekers of Perl Wisdom