package CGI::Single;
our @ISA;
@ISA = ('CGI');

my $instance;
sub instance {
  defined $instance or $instance = new CGI;
  $instance;
}
1;