sub new {
    my ( $class, $init ) = @_;
    $class = ref($class) || $class;
    my $self  = {};
    bless $self, $class;
    $self->init($init);
    return $self;
}

##</code><code>##

# uncomment this if you want to use query string and POST at the same time (not recommended)
# $data .= $ENV{'QUERY_STRING'};

##</code><code>##

    $data =~ s/%00//g;   # prevent null byte hacks
    $data =~ tr/\000//d;