it is much easier:

package CGI;

sub getparam
{
   my ($self, $what) = @_;

   return $self->url_param($what) || $self->param($what);
}

1;
[download]

:)