no warnings "redefine";

# entweder
*CGI::param = sub { ... };

# oder
sub CGI::param { ... }