package UNIVERSAL; use xCGI; sub param{ my $self = shift; $self->{CGI} = xCGI->new() unless defined $self->{CGI}; return $self->{CGI}->param(@_); } 1;