Select Code to Download

#!/usr/bin/perl

...
print $q->start_html(-dtd => '-//W3C//DTD HTML 4.01//EN', 
    'http://www.w3.org/TR/html4/strict.dtd');
print $q->end_html;