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

sub param{
	my $self = shift;
	return $self->{CGI}->param(@_);
}