use CGI; # this is OO
my $q = CGI->new;
print $q->header,
      $q->start_html('some title'),
      ...