perl -MCGI -e 'print $CGI::VERSION'

##</code><code>##


my $query = new CGI;
my $error  = $query->cgi_error;

 if ($error) {
               print $query->header(-status=>$error),
                      $query->start_html('Problems'),
                      $query->h2('Request not processed'),
                     $query->strong($error);
               exit 0;
 }