package Erbe;

use CGI;
use base 'CGI';
use strict;

sub new{
	my $class = shift;
	my $cgi = $class->SUPER::new;
	return bless {CGI => $cgi}, $class;
}

sub header{
	my $self = shift;
	my $class = ref($self);
	return $self->{CGI}->SUPER::header(@_);
}