#!/usr/bin/perl

use CGI;

my $cgi = CGI->new;

my $proto = $cgi->protocol();

print $cgi->header,
      $cgi->start_html( 'protocol test'),
      $cgi->h1( 'proto is ' . $proto ),
      $cgi->end_html;