use CGI qw(:form);

##</code><code>##

sub AUTOLOAD {
    my $self = shift @_;
    (my $method = $AUTOLOAD) =~ s/.*:://;
    return if $method eq "DESTROY";

    if ( ! (@_ % 2) ) {
        my %args = @_;

        if ( exists($args{-page}) && exists($args{-param}) ) {
            # appears to be a form element creation call to CGI
            $args{-name} = $self->CreateRawFieldName(-page  =>  $args{-page},
                                                    -param  =>  $args{-param});
            delete $args{-page};
            delete $args{-param};

            my $parent_call = 'SUPER::' . $method;
            return $self->$parent_call(%args);
        }
    }
}