sub new {
	my ($class) = @_;
	my $self = {cgi => CGI->new};
	bless $self, $class;
	return $self;
}