Select Code to Download

#!/usr/bin/perl
use strict;
...
          $cgi->p( 'Hello, world!' ), "\n",
          $cgi->end_html();
}

######################################################################
sub print_document_header {
...
    my $cgi = shift @_; 
    print $cgi->header( -type => 'text/html' ), "\n";
}