#!/usr/bin/perl -w
use strict;
use CGI;
print "Version: $CGI::VERSION\n",
      "Revision: $CGI::revision\n";


##</code><code>##

# These are some tie() interfaces for compatibility
# with Steve Brenner's cgi-lib.pl routines
'Vars' => <<'END_OF_FUNC',
sub Vars {
    my $q = shift;
    my %in;
    tie(%in,CGI,$q);
    return %in if wantarray;
    return \%in;
}
END_OF_FUNC